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.TITLE SORT I SORT INITIALIZATION 
. ENAJBL IC 

Copyright <c) 1977, 1978. 1979> 1980. 
S&H Computer Syfttemn. Inc. 
Nashville, Tennessee 



. PSECT SORTID, D 
Written by Phil ShprTod. 



DATA SECTION PS^CT 



THIS MODULE OF SORT IS 7HE INTERFACE TO 

THE CALLING PROGRAM OR USER. 

IT ALLOWS SORT TO BE RUN IN ANY OF THREE MODES: 

1 ) DIRECT RUN 

2) CHAIN FROM ANOTHER PROGRAM 

3) TSX MESSAGE COMMUNICATION 



Modified in Feburary, 1980 by K. C. Lidster of DISC to also execute 
under the RTll run-time for the RSTS operating system. This mainly 
involved the handling of the extra file parameters pertaining to 
RSTS <PPN, clustfcrsize, etc. >. 



GL OB AL DEF I N I T I ONS 

. GLOBL SRTINI, TERM, FT*D, SO*NOT 

. GLOBL S*LINK, S*OPR- S*TYP, S$BR, S*FLG 

. GLOBL S«POSl, S«SI21. S«P0S2, S**SZ, SO$CMP 

. GLOBL SO*AND, SO*OR, FT*T, SF$LIT, M*P0S1 

. GLOBL N*P0S2, M*SIZE. M**SZ, BT$HI, BT'MO 

. GLOBL BTifiRFV 

GLOBAL REFERENCES 

. GLOBL QBLK, MODE, TSXFL, EST I ME 

.GLOBL KTYPE, KAD, KSTRT, KLEN 

. GLOBL TOPMEM, NUMKY2> RECLEN, SKPCNT, MXRECl 

. GLOBL MXREC2, CINSPC, EOFCHR, EOFCOL 

. GLOBL TISJZ, T2SI2, ISMARS 

. GLOBL NUMCOL, NUMLEN, NUMBUF 

. GLOBL I TYPE, DTYPE, RT*CBL. RT*DBL 

. GLOBL RT$FTN, RT*TXT, RT*X, RT*F1 1 

. GLOBL RT$OS, RT^DR, RT«OX 

. GLOBL CURSAV, SKPVAL, RSPCS 

. GLOBL RT'$RA, RT*RB, F*INPL, CISRTI 

. GLOBL RT*VLN, RT$CR, MULTPY, DIVIDE 

. GLOBL JNFLEN, KYUCA, BLKFC 

. GLOBL OWCNT, OBUFSZ, STARTl, STACK 

. GLOBL RWDLEN, P2T0P, RCNTl , RCNT2 



SORTl 
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000015 
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73 
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GLOBL KYCOMP, f-LDMAP, MAPBND, INRLEN, SELADR 

GLOBL KYI) I S, EDFBUF- ANDFIC ORFL G 

GLOBL MSGNAM. COMPAR, RECl , REC2, POBASE 

GLOBL POTOP, P2SIZ, LOWMEM- PISIZ 

GLOBL UEOF, V3FLAG, SRTCNT , TMPCN7 , P 1 TOP 

GLOBL KYBIN, KYTSS, KYLSS, KYDATE 

GLOBL SFLAGS, F*B1N. F*CR, F*PAUS, F$VLEN 

GLOBL CINNRT,SAVBUF 

GLOBL SETNRT, RSTS, CHNPPN, FILFPN, SPCFLG 

GLOBL FDl, FD2, FD3, FD4, SPCl. SPC2, SPC3. SPC4, SPC5, FILES 



MISC. PARAMETERS 



CR 
LF 
CTRLZ 



15 
12 
32 



ASCII CARRIAGE RETURN 
ASCII LINE FEED 
CONTROL-Z 
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000000 
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000002 
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000004 




SO 






000006 
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OOOOOl 




2S 






000002 
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000000 




31 






000002 




32 






000004 
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000006 
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000014 
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OOOOOl 
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44 
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47 


0( 


)0000 


105 


121 


48 


Oi 


.5000? 


116 


105 


49 


000004 


114 


124 


50 


Q< 


)0006 


114 


105 


51 


0( 


50010 


107 


124 


52 


0-: 


>0012 


107 


105 


53 






000014 




54 










55 










56 










57 











Format of record selection control blocks. 



S*LINK 

S*OPR 

S*TYP 

S*BR 

S*FLG 

S*POSl 

S*BIZ1 

S*P0S2 

s**sz 



o 

2 

3 

4 

5 

6 

10 

12 

14 



W- LINK TO NEXT CONTROL BLOCK 

B- TYPE OF OPERATION <SO«xxx) 

B- TYPE OF DATA CFT«x) 

B- TRUTH TEST (EQ, NE, GT, LT, GE, LE ) 

B" CONTROL FLAGS <SF*xxx) 

W- BYTE POSITION OF FIELD 1 

W- # BYTES IN FIELD 1 

W- BYTE POSITION OF FIELD 2 

jSIZE OF SELECT CONTROL BLOCK 



Operation codes stored in S*OPR 



SO*^CMP = 

SO^AND == 
SOi^OR 

SO*NOT = 







FIELD COMPARISION 
LOGICAL AND 
LOGICAL OR 
LOGICAL NOT 



Branch type codes stored in S*BR 



BT*HI 
BT*LO 
BT*REV = 



BRANCH IF A>B 
BRANCH IF A<:B 
REVERSE SENSE OF BRANCH 



r~ield type codes stored in S*TYP 



FT-^C 
FT*B 
FT^U 
FT*T 
FT*F 
FT*D 
FT*A 
FT«I 
FT*J 





2 

4 

6 

10 

12 

14 

16 

20 



C CHARACTER 

B SIGNED BINARY INTEGER 

U UNSIGNED BINARY INTEGER 

T DATE (MMDDYY) 

F FLOATING 

D DIBPL SIGNED NUMBER 

A UPPER CASE ASCII CHARACTERS 

I LEADING SEPARATE SIGN 

J TRAILING SEPARATE SIGN 



Control flags stored in S*FLG 



SF*LIT = 



1 



i FIELD 2 IS A LITERAL 



Table of comparison operators. 
CMPOPS: 



NUMCO 



. ASCII 


/EO/ 


. ASCII 


/NF/ 


. ASCII 


/LT/ 


. ASC 1 1 


/LE/ 


. ASCII 


/GT/ 


. ASC 1 1 


/OF/ 


= 


. -CMPOPS 



J 2*# OPERATORS 



Parallel table of control flags. 
BT*HI==>True if A>B. 
BT*LO==>True if A<B. 



4 



SORT I 
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58 






59 






60 


000014 


007 


61 


000015 


003 


62 


000016 


002 


63 


000017 


005 


64 


000020 


001 


65 


000021 


006 


66 






67 




000003 


60 






69 






70 






71 






72 






73 




000001 


74 




000002 


75 




000003 


76 




000004 


77 




000005 


78 




000006 


79 




000007 


80 




000010 


81 




00001 1 


82 






83 






84 






85 


000022 


000 


86 


000023 


000 


87 


000024 


000 


88 


00002 f» 


000 


89 


000026 


000 


90 


000027 


004 


91 


000030 


002 


92 


000031 


006 


93 


000032 


004 


94 


000033 


002 


95 






96 






97 






98 






99 






100 




000000 


101 




000002 


102 




000004 


103 






104 




000006 



i BTi»RE\^=-'>R averse Bense of c omp ari son. 
CMFCOD: 



BYTE 
BYTE 
BYTE- 
BYTE 
BYTE 
BYTE 
EVEN 



BT*NE 



Br*HI !BT^IiLO!BT$REV 

BT*HI.'BT*LO 

BT*LO 

BT«HI !BT*REV 

BT*HI 

BT*LO ! BT*REV 

BT«HI!BT*LO 



EQ 
NE 
LT 
LE 
GT 
GE 

BT CODE FOR NE OPERATION 



Operation codes used while parsing logical selection expression 
Operation code value corresponds to precedence value for operator. 



OP*EOE 

OP*BOE 

OP*RPN 

OPfLPN 

OP*OR 

OP* AND 

OP*NOT 

OP*COR 

OP<eCND 



1 

2 

3 

4 

5 

6 

7 

10 

11 



END OF EXPRESSION 

BEGINNING OF EXPRESSION 

RIGHT PAREN. 

LEFT PAREN. 

"OR" 

"AND" 

"NOT" 

", " USED WITH EQ (SPECIAL "OR") 

", " USED WITH NE (SPECIAL "AND") 



Table to translate OPSxxx code values to SO*xxx codes. 



OPTRN£ 



BYTE 





BYTE 





BYTE 





BYTE 





BYTE 





BYTE 


SOIiOR 


BYTE 


SO«AND 


BYTE 


SO«NOT 


BYTE 


SO^OR 


BYTE 


SO^AND 



OP*EOE 

OP*BOE 

OP*RPN 

OP*LPN 

OP*OR 

OP* AND 

OP*NOT 

OP*COR 

OP*CND 



Format of field mapping control blocks. 



M*P0S1 


= 





M«P0S2 


= 


2 


M*SIZE 


:=: 


4 


M$*SZ 


= 


6 



W- POSITION OF SOURCE FIELD 

W- POSITION OF DESTINATION FIELD 

W - NUMBER OF BYTES TO MOVE 

;SIZE OF MAPPING CONTROL BLOCK 



SORT I 
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4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



000034 
000036 
0O0040 
00C042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 

000064 
000066 
000074 
000076 

000104 
000106 



015270 
074452 
1 00760 
101030 
113050 
077430 
014646 
014474 
011541 
011542 
012106 
011576 

014646 
000000 
074644 
000000 

073376 
000000 



000000 000000 



000000 000000 



R50DK: 

R50TN0 

R50TN1 

R50TN2 

R50XX: 

R50TMP 

R50DDF 

R50DAT 

R50CDA 

R50CDB 

R50CI0 

R50CD0 

DEFEXT: 

INDDEX: 



RAD 50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 



/DK/ 

/SOR/ 

/TIX/ 

/T2X/ 

/XA / 

/TMP/ 

/DDF/ 

/DAT/ 

/CDA/ 

/CDB/ 

/CIO/ 

/CDO/ 



. RAD50 /DDF/ 

. WORD 0, 0. 

. RAD50 /SRT/ 

. WORD O, 0. O 



CHADEX: . RAD50 /SAV/ 
000000 000000 . WORD O, O, O 



INPUT FILE DEFAULT EXTENSION 
OUTPUT FILE DEFAULT EXTENSIONS 
INDIRECT PARAMETER FILE EXTENSION 



i CHAIN FILE DEFAULT EXTENSION 



23 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000114 
000116 
000120 
000122 
000124 



000126 
000130 
000132 
000 J 34 

000136 
000140 
000142 



000144 
000644 
00 J 344 
001604 
001624 
001770 
002052 
002432 
003432 
003442 
003452 
005454 
003456 
0O3476 
005500 
OO3502 
003504 



000 
000 
011601 ' 
000644 ' 
0004 54 



000 

ooooooe 

000136' 
000006 

000000 
000000 
000000 



110 
106 



000000 
000000 

000000 
000000 
000000 
000000 



104 



GTLN: 


. BYTE 


0, 110 


MSGBLK: 


. BYTE 


0. 106 




. WORD 


SRTNAM 




. WORD 


MSGBUF 




. WORD 


300. 



; MESSAGE REPLY EMT BLOCK 

SNDBLK: . BYTE 0> 104 
. WORD MSGNAM 
. WORD ABTBUF 
. WORD 6. 

; MESSAGE BUFFER 

ABTBUF: . WORD 



MRC2: 


. WORD 





MRCl: 


. WORD 





i DATA AREAS 




TTBUF: 


. BLKW 


160 


MSGBUF 


. BLKW 


160 


FILBUF 


. BLKW 


BO. 


CINFIL 


. BLKW 


8. 


XBUF: 


. BLKW 


50. 


SLBUF: 


. BLKW 


25. 


SWBUF: 


. BLKW 


1 20 


GENBUF 


. BLKW 


256 


CBLK; 


. BLKW 


4 


CMPTMP 


. BLKW 


4 


KEY WD: 


. WORD 





VALHI : 


. WORD 





XAREA: 


. BLKW 


8, 


CURSEL 


. WORD 





FLDPOS 


. WORD 





FLDSIZ 


. WORD 





FLDTYP 


. WORD 






SORT J 
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58 


003 D06 


000000 


59 


003 fUO 


000000 


60 


0C5512 


000000 


61 


003 'H 4 


000000 


62 


003516 




63 






64 






65 






66 


005526 


000 


67 


005527 


000 


68 


005530 


000 


69 






70 


003531 




7i 


002537 


002 


72 






73 


003540 


003537 ' 



FLDORD: 


. WORD 





RETLOC: 


. WOf?D 





RSTAT: 


. WORD 





INXDEV: 


. WORD 





INDNRT: 


. BLKW 


4 



i Bijte data 

i 

QUOTE: . BYTE O 

NEGVAL: . BYTE 

DECPT: . BYTE 
i Operator stack. 

. BLKB 6. 

OPRSTP: . BYTE OP^BOE 

. EVEN 

OPRSTK: . WORD OPRSTP 



i 

I 

I 
i 
i 

i 



SORT I 



SORT JMITIALIZATJON 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
13 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
So 
27 
20 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



48 



49 
50 
51 
52 



0C>0000 
000000 
OOOuOO 
000000 



000000 
003542 
003542 
003542 
003542 
003542 
003542 
003342 
003542 
003542 
003542 
003542 
003542 
003542 
003542 
003542 
003542 



000042 
000042 
005542 



003542 
003545 
005550 

005553 
003554 
005557 
003562 
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MACRO TO DEFINE SWITCH NAMES AND PROCESSING ROUTINES. 
. CSECT SWNAM 



KEYTAB: 








. CSECT 


SWBRV 






KEYBR: 








i 

. MACRO 


SW NAME, RTN 






. NLIST 


BIN 






. CSECT 


BWNAM 






. ASCII 


/'NAME'/ 






. CSECT 


SWBRV 






. WORD 


RTN 






. PSECT 


SORTID, D 






. LIST 


BIN 






. ENDM 


SW 






i DEFINE SWITCHES <2 CHARS) AND 


PROCESSING ROUTINES. 




SW 


SI>SWSIZE 


/SIZErNNN 




SW 


SK, SWSKIP 


/SKIPrNNN 




SW 


RE, SWREC 


/RECORDS; NNN 




SW 


EO, SWEOF 


/EOF: CHAR: COL 




SW 


CH, 5WCHAN 


/CHAIN: NAME 




SW 


KE, SWKEY 


/KEY:TAS. L: TAS. L: . . . 




SW 


PA, SWPAUS 


/PAUSE 




SW 


BL, SWBLOK 


/BLOCK: NN 




SW 


IN, SWINCL 


/INCLUDE: (expression) 




SW 


MA, SWNAP 


/MAP: size: s. d. 3: s. d. 1: . . 


. 


SW 


CR, SWCR 


/CR 




SW 


SE, SWSND 


/SEND: TEXT 




SW 


BI,SWBIN 


/BIN 




SW 


IT, SWITYP 


/ITYPE: type 




SW 


OT, SWOTYP 


/OTYPE: type 




SW 


NU, SWNMBR 


/NUMBER: col. len 




SW 


PP, SWPPN 


/PPN: Cchain ppn3: tfile j 


jpn 



i 
i 
i 
i 
( 
4 

4 



103 
124 
101 
000 
000 
006 
014 



102 
106 
111 

002 
010 
016 



125 
104 
112 

004 
012 
020 



i DEFINE END OF SWITCH TABLES 

. CSECT SWNAM 
KEYEND: 

. PSECT SORTID, D 

KEY TYPE LETTERS AND TYPE CODES 
KEYTC: . ASCI 2 /CBUTFDAIJ/ 



KEYCOD: . BYTE FT*C, FT^B, FT$U, FT*T, FT«F, FT*D, FT*A, FT*I, FT*J 



. EVEN 

DEFINE # OF BYTES OF MEMORY NEEDED FOR THE CODE GENERATED 
TO COMPARE KEYS OF VARIOUS TYPES. 



i 
t 

4 
4 
I 



SORT I SORT INITIALIZATION 
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54 


003566 


000036 


55 


003570 


000030 


56 


003572 


000022 


57 


003574 


000030 


58 


003576 


000030 


59 


003600 


000030 


60 


003602 


000030 


61 


003604 


000030 


62 


003606 


000030 


63 






64 






65 






66 


003610 


011104' 


67 


003612 


011306' 


68 


003614 


011252' 


69 


003616 


011336' 


70 


003620 


011344' 


71 


003622 


011360' 


72 


003624 


011366' 


73 


003626 


011322' 


74 


003630 


011330' 



CODSIZ: . WORD 


30. 


. WORD 


24. 


. WORD 


18. 


. WORD 


24. 


. WORD 


24. 


. WORD 


24. 


. WORD 


24. 


. WORD 


24. 


. WORD 


24. 


; BRANCH VECTOR TO CO 


GENVEC: .WORD 


GNASCI 


. WORD 


GNCMP 


. WORD 


GNUS I 


. WORD 


GNDATE 


. WORD 


GNBIN 


. WORD 


GNDIS 


. WORD 


GNUCA 


. WORD 


GNLSS 


. WORD 


GNTSS 



ASCII 

SIGNED INTEGER 

UNSIGNED INTEGER 

DATE 

FLOATING POINT 

DIBOL SIGNED NUMBER 

UPPERCASE ASCII STRING 

LEADING SEPARATE SIGN 

TRAILING SEPARATE SIGN 



ASCII 

SIGNED INTEGER 

UNSIGNED INTEGER 

DATE 

FLOATING POINT 

SIGNED DIBOL NUMBER 

UPPER-CASE ASCII COMPARE 

LEADING SEPARATE SIGN 

TRAILING SEPARATE SIGN 



SORT! 



SORT INITIALIZATION 
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8 






9 






10 






li 






13 


003632 


003750 ' 


13 


003634 


003767 ' 


14 


003636 


004011 ' 


15 


003640 


004035 ' 


16 


003642 


004060 ' 


17 


003644 


004105' 


18 


003646 


004143' 


19 


003650 


004174' 


20 


003652 


004234 ' 


21 


003654 


004263 ' 


22 


003656 


004311 ' 


23 


003660 


004351 ' 


24 


003662 


004401 ' 


25 


003664 


0044v34 ' 


26 


003666 


004470 ' 


27 


003670 


004527' 


28 


003672 


004563' 


29 


003674 


004401 ' 


30 


003676 


004621 ' 


31 


003700 


004676' 


32 


003702 


004730 ' 


33 


003704 


004766' 


34 


003706 


005017' 


35 


003710 


005065' 


36 


003712 


005141' 


37 


003714 


005206' 


38 


003716 


005255' 


39 


003720 


005311 ' 


40 


003722 


005367 ' 


41 


003724 


005441 ' 


42 


003726 


0055O2' 


43 


003730 


005544' 


44 


003732 


005616' 


45 


003734 


005672 ' 


46 


003736 


005753' 


47 


003740 


006012' 


48 


003742 


006051 ' 


49 


003744 


006077 ' 


50 


003746 


006165' 


51 







DEFINE ABORT MACRO 

. MACRO XXX COD 
XXX 'COD = 

MOV #'COD'. ,R0 

JMP TERM 

. ENDM XXX 



SORT 


ERROR 


MESSAG 


i 

ERRTAB: 


. WORD 


EMO 




. WORD 


EMI 




. WORD 


EM2 




. WORD 


EM3 




. WORD 


EM4 




. WORD 


EMS 




. WORD 


EM6 




.WORD 


EM7 




. WORD 


EMS 




. WORD 


EM9 




. WORD 


EMIO 




. WORD 


EMU 




. WORD 


EM12 




. WORD 


EMI 3 




. WORD 


EMM 




. WORD 


EMI 5 




. WORD 


EMI 6 




. WORD 


EM17 




. WORD 


EMI 8 




. WORD 


EM19 




. WORD 


EM20 




. WORD 


EM21 




. WORD 


EM22 




. WORD 


EM23 




. WORD 


EM24 




. WORD 


EM25 




. WORD 


EM26 




. WORD 


EM27 




. WORD 


EM28 




. WORD 


EM29 




. WORD 


EM30 




. WORD 


EM31 




. WORD 


EM32 




. WORD 


EM33 




. WORD 


EM34 




. WORD 


EM35 




. WORD 


EM36 




. WORD 


EM37 




. WORD 


EM3S 



SORT! SORT INITIALIZATION 
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i 
I 
i 
i 
I 
( 
( 
( 
< 
i 
i 
i 
I 
< 
I 
I 

i 
< 
i 



1 

2 


003"750 


EMO 




3 


003767 


EMI 




A 


004011 


EM2 




5 


004035 


EM3 




6 


004060 


EM4 




7 


004105 


EMS 




8 


004143 


EM6 




9 


004174 


EM7 




10 


004234 


EM8 




11 


004263 


EM9 




12 


00431 1 


EM 10 


13 


004251 


EMU 


14 


004401 


EM 12 


15 


004434 


EM13 


16 


004470 


EM 14 


17 


004527 


EM 15 


18 


004563 


EM 16 


19 




EM17 


20 


004621 


EM IS 


21 


004676 


EM 19 


22 


004730 


EM20 


23 


004766 


EM21 


24 


005017 


EM22 


25 


005065 


EM23 


26 


005141 


EM24 


27 


005206 


EM25 


28 


005255 


EM26 


29 


005311 


EM27 


30 


005367 


EM28 


31 


005441 


EM29 


32 


005502 


EM30 


33 


005544 


EM 31 


34 


005616 


EM32 


35 


005672 


EM33 


36 


005753 


EM34 


37 


006012 


EM35 


38 


006051 


EM36 


39 


006077 


EM37 


40 


006165 


EM38 



Nl 1ST 
ASCI 2 
ASCIZ 
ASCI 2 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASC I Z 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASC I Z 
ASCIZ 
ASCIZ 



BIN 

/Sort c 
/Inval i 
/Inval i 
/Inval i 
/Inval i 
/Invali 
/Not As 
/Cannot 
/Cannot 
/Cannot 
/Not en 
/Cannot 
/Over f 1 
/Inval i 
/Error 
/Error 
/Error 
EMi2 
/Temp f 
/Bad CO 
/Unreco 
/Inval i 
•'Requir 
/Unable 
/Insuff 
/Cannot 
/Error 
/Inval i 
/Field 
/Invali 
/Inval i 
/Inval i 
/Inval i 
/Record 
/Invali 
/Inval i 
/Inval i 
/ 1 n p 1 a c 
/On 1 y o 



ompl eted/ 

d # of keys/ 

d record size/ 

d field type/ 

d field length/ 

d field starting column/ 

cending-Descendincj/ 

load some device handler/ 

open input file/ 

open temp file/ 
ough room for output file/ 

open output file/ 
ouf of sort temp file/ 
d date in sort record/ 
while reading input file/ 
on write to temp file/ 
on write to output file/ 



sort error)/ 



ile link failure (internal 

mmand string syntax/ 

gnizable command switch/ 

d switch parameter/ 

ed switch missing </SIZE, /KEY)' 

to reopen sort temp file for phase 2/ 
icient memory space to do sort/ 

open sort indirect command file/ 
on SRTPLS message EMT/ 

d comparison operator in INCLUDE clause/ 
types don't match in INCLUDE clause/ 
d syntax in INCLUDE clause/ 
d literal in INCLUDE clause/ 
d record size value with MAP switch/ 
d field specification with MAP switch/ 

read is longer than specified record size/ 
d ITYPE switch parameter/ 
d OTYPE switch parameter/ 
d NUMBER switch/ 

e sort not legal with Indexed organization file/ 
ne input file is allowed if organization is Indexed/ 



SORT I 



SOra INITIALIZATION 
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i 

< 
i 
I 
( 
I 

I 

t 
i 
i 

i 
i 
i 



!ort nelp message 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2.D 

26 

28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006;i5/ 
006257 
006307 
006334 
006437 
006460 
006526 
006600 
006663 
006754 
00705O 
007143 
007243 
007326 
007336 
007417 
007521 
007603 
007625 
007647 
007664 
007703 
007755 
010033 
010054 
010076 
010127 
010146 
010170 
OiOi'OS 
010223 
010301 
010341 
010420 
010477 
010S50 
010633 
01 0701 
010762 
011076 
011162 
011247 
011326 
011404 
01 J 452 
011511 
011577 

011601 
011607 
011622 
011625 
01 J 644 
01 1670 



HLPMSG: 
. ASC 1 1 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASC 1 1 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASC 1 1 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASC 1 1 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCIZ 

SRTMAM 
SRn-TiD 

ASTR rx 

TXNRR: 
TXNRG: 
CRl F: 



/SORT -Plus vers 
/SORT command 1 
"Coutspc 3 I, tmpl 
/Valid switches 
•VSIZEinnn — 
"/REC:nnn 
"/SKIPinnn — 
"/EOFt: 'char't: 
"/PAUSE 

"/CHAIN: prog&pc 
"/PPN: Cchain pp 



"/SEND: 'text' - 
"/ITYPE: lor — 
"/DTYPE: lor — 
" Languag 



, in&pc6/sujl/sw2. . . "<CR><LF><LF:> 



"/BLOCK; nn — 
"/MESSAGE — en 
"/KEY: tas. 1 C : ta 
" t=typeof 



/ 



a = "A" for 
" s " star tin 

1 = length 
"/INCLUDE: <logi 
"/MAP: zizi^: s. d. 
<LF> 



ion 1 . 2/<CR><LF><LF> 

i n e : / <CR><LF><LF> 

spctj tmp25pc 33 = inspc 1^ inspc2> 

: /<cr><:lf> 

record size <# by tes ) "<CR><LF> 

number of records to sort"<CR><LF> 

number of records to skip at Btart"<CR><LF> 
coi:i3 — end of file sentinel character "<CR><LF> 

ask for output disk after reading all input"<CR><LF-> 
chain to specified program after sort"<CR><LF> 
n3:l.file ppn3 — set default chain and file open"<CR><LF> 

PPNs (brackets required). Ignored if not under"<CR><LF> 

rsts"<cr:><lf> 

~ pass message through chain area"<CR><LF> 

Input file language, organization & recording mode"<CR><LF> 
Output file language, org., ^ mode"<CR><CLF> 
e types: "<CR><LF> 
C =^ COBOL-PI us "<CR><LF> 
D =- DI130L"<CR.><LF> 
F = FORTRAN "<CR><LF> 

T = Oeneral variable length ascii text"<CR><LF> 
X - General fixed length binary/ascii data"<CR><LF> 
Organizations: "<CR><LF> 

S ^ Sequential "<CCR><LF> 
R = Relative <Random> "<CR><LF> 
I = Indexed "<CR><LF> 
Recording mode: "<CR><LF> 

A =^ A6cii»<CR><LF> 
B == Binary "<CR><LF> 

use specified blocking fac tor"<CR><LF> 
ter message modB"<CR><LF> 

s. I:. . . 3 — specify sort kBy6"<CR><LF> 
key: C=ASCII character string, "<CR><LF> 
A=Upper~cas>e ASCII, "<CR><LF> 
assigned binary (COBOL COMP) , "<CR><LF> 
T=date (mmddyy), "<CR><LF> 
F=FORTRAN Real and Integer, "<CR:>aF> 

D=COBOL signed numeric display and signed DIBOL number "<CR><LF> 
I^COBOL leading separate sign, "<CR><LF> 
J=COBOL trailing separate sign. "<CR><LF> 
ascending, "D" for descending. /<CR><LF> 
g column #. (First col. # = 1 ) "<CR><LF> 
of key <# of columns). "<CR><LF> 
cal expression)" <CR.><LF.> 
1: s. d. 1:. . . — specify field mapping "<CR><LF> 



.ASCII /RTSORT/ /SORT INPUT MESSAGF CHANNEL 

.ASCII /?SRTPLS"F-/<200> 

. ASCIZ /«-/<200> 

.ASCII /Records read: /<200> 

.ASCII /, Record& sorted: /<200> 

. BYTE 



SORT.I SORl JNITIALIZATIOM HACRO V05. 01b Monday 06"May--85 16:56 Page B-1 

58 Oll.'j/i CVTrfUF: .ASCIZ /01234567S/ 

59 . FvEN 

60 . LIST BIN 



SORT! 



son J J hi II lAl. J I All DM 
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SORT I NIT J At 12ATI0N 



2 000(;00 






3 






4 






5 






6 OOvhjOO 






7 oaoooo 






e 






9 






10 






11 






12 






13 






14 






15 






16 






17 000-70 






18 000170 


105767 


OOOOOOG 


19 000.174 


001405 




20 000176 


105767 


OOOOOOG 


21 000202 


002474 




22 000204 


001410 




23 000206 






24 000210 






25 000210 


1 52767 


000001 OOOOOOG 


26 000216 


032737 


000400 000044 


27 000224 


001055 




2S 






29 






30 






31 000226 

32 

33 000232 


105067 


OOOOOOG 


012701 


000144' 


34 000236 


105767 


OOOOOOG 


3D 000242 


001416 




36 






37 000244 






38 






39 000262 


105721 




40 000264 


001376 




41 000266 


005301 




42 000270 


124127 


000055 


43 000274 


001763 




44 0O0276 


000425 




45 






46 






47 






48 000300 






49 000300 


112700 


000052 


50 000304 






51 000310 






52 000314 


120027 


000012 


53 000220 


001413 




54 000322 


120027 


000055 


55 000226 


001006 




56 000330 






57 000334 


120027 


000012 



.SBTTL SORT INITIALIZATION 

. PSECT SORTI ; BEGIN PROCEDURE SECTION 

INITIAL ENTRY TO SORT 

SRTINI: 

*SYINn 

iiSORTR: *GETCMD #TTBUF, #160. ; MACRO TO GET A COMMAND LINE 
US& THE FOLLOWING CONDITIONAL ASSEMBLY INSTEAD OF 
A MACRO. I WOULD HAVE PREFERED A MACRO, BUT IT TURNED 
OUT TO BE MUCH TOO MESSY. 

IF DF RTll 

DETERMINE HOW WE WERE CALLED 

SORTR: 

GETTING 1ST COMMAND LINE ? 
BRANCH IF SO 

LOOK TO SEE HOW TO GET COMMAND 
~1 ==> GO WAIT FOR A MESSAGE 

O ==> GO GET A NORMAL COMMAND 
EXIT SORT PROGRAM TO KMON 



1*: 



TSTB 


FSTIME i 


BEQ 


1* i 


TSTB 


MODE i 


BLT 


MWAIT i 


BEG 


SORTD i 


. EXIT 




BISB 


#1, FSTIME > 


BIT 


#CHNBIT, @#JSW ; 


BNE 


SORTC 



INDICATE NO LONGER 1ST TIME THRU 
WERE WE CHAINED TO? 
BR IF CHAINED TO 



i We are in direct run mode. 

i 

SORTD: CLRB MODE 

i ACCEPT COMMAND LINE FROM USER 

MOV #TTBUF, Rl 

TSTB V3FLAG 

BEQ V2GLIN 

; USE VERSION 3 . GTLIN EMT TO GET COMMAND LINE 

V3GLIN; .GTLIN R1>#ASTRTX 

; SEE IF LINE IS CONTINUED 
1«: TSTB (Rl)+ 

BNE 1* 

DEC Rl 

CMPB "(Rl),#'- 

BEQ V3GLIN 

BR GOTLIN 



; SAY DIRECT RUN MODE 

STORE COMMAND IN TTBUF 
IS THIS RT-U V2 OR V3? 
BR IF RT V2 



ACCEPT COMMAND LINE 
; SCAN FOR TRAILING NULL 



DID LINE END WITH '-'? 
BR IF LINE WAS CONTINUED 
END OF COMMAND 



QEl LINE USING . TTYIN IF UNDER RT V2 
V2GLIN: 



5*; MOVB #'i.SRO 
. TTYOUT 

1$: . TTYIN 

CMPB RO, #LF 

BEQ 2f. 

CMPB RO, #'- 

BNE 3* 

4*: . TTYIN 

CMPB RO, #LF 



i PRINT PROMPT 

ACCEPT CHAR FROM USER 

END OF LINE? 

BR IF END OF COMMAND 

WANT TO CONTINUE LINE? 

BR IF NOT 

EAT REST OF THIS LINE 



SORTI SORT INITIAi IZATION 
SORT INITitAI. J 2 AT I ON 
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58 
59 
60 
61 
62 
63 
64 



GOOD 40 
000342 
000;344 
000346 
000350 
0003 5C' 
OOC'356 



00 J 373 
000756 
llOOPl 
000760 
105041 
012701 
000434 



000144 





BNE 


4« 




DR 


5* 


3*: 


MOVE 


RO, (Rl ) f- 




BR 


1* 


2*: 


CURB 


-(Ri.) 


GOTLIW; 


MOV 


#TTBUF, Rl 




BR 


3CNCMD 



iNOW GO GET CONTINUATION LINE 
; ACCRUE COMMAND LINE 

; PUT NULL AT END OF COMMAND 
i SCAN COMMAND FROM TTBUF 
i GO PARSE COMMAND 



i 

< 

I 

I 

< 

I 

I 

I 

€ 

f 

i 
< 
i 

4 
i 
4 
t 
i 
i 
i 



SORT J SORT 1 N rn. ALII AT IDhl 

SORT INITIAI 1 2 AT I ON 
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1 

P 
3 
4 



7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2i> 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
33 



OOC'360 
000366 
000372 



000374 
000402 
000406 
0004 1 
0004 1 2 
0004 1 6 



000426 
000432 
000436 
000442 
000444 
000446 



000450 
000454 
000456 
000464 
000466 
000474 
000476 

000006 
0005 J 4 



112767 
012701 
000426 



1 1 2767 
012700 
104375 
103006 



105060 
012701 
012702 
012122 
012122 
012112 



121127 
00 J 021 
126127 
00141O 
126127 
001737 



000001 
000510 



177777 
000116' 



105067 OOOOOOG 



000644 ' 
000644 ' 
OOOOOOG 



000057 
000001 
OOOOOl 



WE WERE CHAIiMFD TO - COMMAND IS IN 510-777 



0000000 SORTC: 



MOVB 

MOV 

BR 



#1, MODE 
#510, Rl 
SCNCMD 



; SET CHAIN MODE 

; SCAN COMMAND FROM 510 

; GO SCAN COMMAND 



MWAIT IS JUMPED TO TO WAIT FOR ANOTHER MESSAGE COMMAND 



OOOOOOG MWAIT: 



000110 
000115 



MOVB 


#-l,MODE 


MOV 


#MSGBLK, RO 


EMT 


375 


BCC 


1* 


CLRB 


MODE 


XXX 


26 



; REMEMBER WE 'RE IN MESSAGE MODE 
i WAIT FOR A MESSAGE 

i BR IF NO ERROR 

; GET OUT OF MESSAGE MODE 



i GOT A MESSAGE. 

i STORE A NULL AT END OF MESSAGE 

If: CLRB MSGBUr<RO) 



MOV 
MOV 
MOV 
MOV 
MOV 



#MSGBUF, Rl 
#MSGNAM, R2 
(Rl)+, <R2)+ 
<R1)+, <R2)+ 
<R1)+, <R2) 



POINT TO SEND MESSAGE BUFFER 
SET RETURN CHANNEL NAME 
MOVE RETURN CHANNEL NAME 



SCAN MESSAGE, IGNORE SPACES, PUT FILSPC INTO FILBUF, 

PUT SWITCHES INTO SWBUF. 

Rl POINTS TO START OF COMMAND STRING. NULL TERMINATES STRING. 



000167 177450 



SCNCMD: CMPB (Rl),#'/ 

BNE 2* 

CMPB 1<R1),#'H 

BEQ S* 

CMPB i(Rl),#'M 

BEQ MWAIT 

XXX 19 
> PRINT HELP MESSAGE 
S*: . PRINT #HLPMSG 

JMP SORTR 



IS THERE A LEADING SWITCH 

BR IF NOT 

/HELP? 

BR IF HELP 

/M ONLY LEGAL ONE 

IT MEANS WAIT FOR A MESSAGE 



GO GET ANOTHER COMMAND LINE 



SORTI SURT INTflAl J2ATI0N 
SORT INITIAI 3?ATI0M 
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1 



i 



3 








4 








T/ 








6 








7 








8 








9 


000520 


121127 


000134 


10 


000r^24 


001015 




1 J 


000526 


005201 




12 


000530 


012702 


001344' 


13 


000534 


112112 




iA 


000536 


001404 




15 


000540 


122227 


000134 


Iv^ 


000544 


001373 




17 


000546 


105042 




18 


000550 


004767 


001510 


19 


000554 


105267 


OOOOOOG 


20 








PJ 








22 








23 








24 


000560 


121127 


000100 


25 


000564 


001402 




26 
27 
28 


000566 


000167 


000266 








29 








30 


000572 


0052O1 




31 


000574 


010605 




32 


000576 


005037 


000046 


33 


000602 






34 


000610 






35 


000612 






36 


000626 


103004 




37 


000630 






38 








39 


00O64O 


010506 




40 


000642 


105767 


OOOOOOG 


41 


000646 


001024 




42 


000650 






43 


000662 


103762 




44 


000<'364 






4t? 


000704 


103005 




46 


000706 






47 


000716 


000744 




4B 








49 


000/20 






50 


000756 


103753 




51 








52 


000760 






53 


000.'66 






54 


000776 






56 


001000 


012701 


002432 ' 


57 


001004 


010102 





See if the command begins with a \SPEC\» where SPEC is an initial 
specification of a /CHAIN file but turns on a special error 
handling switch. This switch specifies that if an error occurs* 
the specified file is chained to with the 7 character low core 
message of "ABORT x'S where x is a single byte binary value that 
contains the error code of the aborted sort. 

'<f: CMPB <R1).#'\ ; Special error mode? 

> ~> no 

i Yes* get the specification 
MOV #FlLBUr-%R2 
3$: 



5*: 



CMPB 


<R1). #'\ 


BNE 


1* 


INC 


Rl 


MOV 


#FlLBUr-% R2 


MOVE 


<R1)+, (R2) 


BEQ 


5« 


CMPB 


(R2)+, #'\ 


BNE 


3* 


CLRB 


--<R2> 


CALL 


SEI CHN 


INCB 


3PCFLG 



;Do thc^ decode 

;And flag the special mode 



SEE IF INDIRECT COMMAND LINE WAS SPECIFIED 
(@FILE SPEC) 



If: 



CMPB 

BEQ 

JMP 



SRI, #'© 

INDRCM 

GETEND 



INDIRECT COMMAND LINE? 
BR IF YES 
BR IF NOT 



GET INDIRECT COMMAND LINE 



INDRCM: 



9*: 



LOAD 



1*: 



INC 

MOV 

CLR 

. SETTOP 

*LOCK 

. CSISPC 

BCC 

XXX 

HANDLER 

MOV 

TSTB 

BNE 

. FETCH 

BCS 

, LOOKUP 

BCC 

. RELEAS 

BR 



Rl 

BP, R5 
©#USRLOC 
#SIEND+2000. 



SKIP 
SAVE 



OVER 
SP 



"e" 



PUT USR IN TOP OF MEMORY 
MAKE ROOM FOR HANDLERS 



Rl 



#XBUF, #INDDEX 

1* 

25 

AND OPEN INDIRECT 



COMMAND LINE 
NO ERROR 
OPEN INDIRECT 



R5, SP 
RSTS 
2« 

#SIEND, #XBUF+36 
9* 

#XAREA, #1, #XBUF+36 
2* 
S*: . RELEAS #XBUF+36 

9* 
READ 1ST BLOCK Of FILE 
?*: . READW #XAREA, #1, 
BCS 0-* 
CLOSE COMMAND FILE 
. CLOSE «1 
. RELEAS #XBUF+36 
*UNLOCI^ 
SUPPRESS TRAILING ENDS 
MOV #GENBUF, Rl 
MOV R1,R2 



PARSE 
BR IF 
CAN'T OPEN INDIRECT FILE 

FILE 
RESET SP 
Running under RSTS? 

=> yesj no fetches needed 
LOAD HANDLER 
BR IF ERROR 



ERROR. RELEASE HANDLER. 



#GENBUF, #256. , #0 



OF CONTINUATION LINES 

; START SCANNING HERE 
i PUT RESULT HERE 



soRTi sorn jmitializatiom 

SOR T I H I T J Al. 1 2 AT I OiM 
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58 


001006 


112103 




59 


001010 


001416 




60 


001012 


120327 


000032 


61 


001016 


001413 




62 


001020 


120327 


000055 


63 


001024 


001770 




64 


001026 


120327 


000015 


65 


001032 


001765 




66 


001034 


120327 


000012 


67 


001040 


001762 




68 


001042 


1 1 0322 




69 


001044 


000760 




70 


001046 


105022 




71 


001050 


012701 


002432' 


72 


001054 


000167 


177370 


73 


001060 






74 









4$: 



3$: 



GETEND: 
. ENDC 



MOVE <R1)+, R3 

BEQ 3« 

CMPB R3, #CTRLZ 

BEQ 3* 

CMPB R3, #'" 

BEQ 4* 

CMPB R3, #CR 

BEQ 4* 

CMPB R3, #Lf- 

BEQ 4« 

MOVE R3, (R2) + 

BR 4* 

CLRB (R2)+ 

MOV #GENBUF, R 1 

JMP SCNCMD 



GET NEXT CHAR FROM F-ILE BUFFER 

BR IF HIT END 

CONTROL -Z CHARACTER? 

IF YES THEN THIS IS END OF FILE 

SKIP CONTINUATION CHAR 

i AND END OF LINE CHARS 



;TH1S CHAR IS NEEDED 

i PUT NULL AT END OF COMMAND 
; SCAN COMMAND FROM HERE 



SORTl SORT JMITIAL JZATION 
SORT INrUALl NATION 
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J 

2 
3 

4 oo:-6o 

5 
6 
7 

5 00 J 060 
9 

10 
11 
12 001064 






; WE 


NOW HAVE 


COMMAND i INE. 






SCNCMl 


: 








; Che 


ck in for 


debugging break 


004767 


OOOOOOG 




CALL 


CISRTI 






i Do 


initial memory allocation 








*GETTOP 




13 001072 


010067 


OOOOOOG 




MOV 


R0> TDPMEM 


14 001076 


012737 


014574' 000046 




MOV 


#SIEND, e#USRLOC 


15 001104 


012704 


000057 




MOV 


#'/, R4 


16 001! 10 


010103 






MOV 


R1,R3 


17 001112 


105767 


OOOOOOQ 




TSTB 


RSTS 


18 001116 


001420 






BEQ 


16* 


19 oo:i2o 


112100 




13*: 


MOVB 


(Rl)+, RO 


20 001122 


001416 






BEQ 


16* 


21 001124 


004767 


011742 




CALL 


QUOTCK 


22 001130 


001006 






BNE 


15* 


23 001132 


112100 




17$: 


MOVB 


(Rl)+, F«0 


24 001134 


001411 






BEQ 


16* 


25 001136 


120067 


003526 ' 




CMPB 


RO, QUOTE 


26 001142 


001v373 






BNE 


17* 


27 001144 


000/65 






BR 


13* 


2B 001146 


020027 


000075 


15*: 


CMP 


RO. #''- 


29 001152 


001362 






BNE 


13* 


30 001154 


012704 


000040 




MOV 


# ' ,H4 


31 001160 


010301 




16*: 


MOV 


R3> Rl 


32 001162 


012702 


001344' 




MOV 


#FILBUF, R2 


33 001 •66 


105012 






CLRB 


<R2) 


34 001170 


105067 


002052 ' 




CLRB 


SWBUF 


35 001174 


005003 






CLR 


R3 


36 001176 


112100 




3*: 


MOVB 


<R1)+, RO 


37 001200 


004767 


011666 




CALL 


QUOTCK 


38 001204 


00 1 006 






BNE 


10* 


39 001206 


1 1 0022 




11*: 


MOVB 


RO, (R2) + 


40 001210 


112100 






MOVB 


(Rl)+, RO 


41 001212 


001426 






BEQ 


4* 


42 001214 


120067 


003526 ' 




CMPB 


RO, QUOTE 


43 001220 


001372 






BNE 


11^ 


44 001222 


120027 


000040 


1 0* : 


CMPB 


RO, #' 


45 001226 


001763 






BEQ 


3* 


46 001230 


120027 


000141 




CMPB 


RO, #141 


47 001234 


103405 






BLO 


12* 


48 001236 


120027 


000172 




CMPB 


RO, #172 


49 001242 


101002 






BHI 


12* 


50 001244 


162700 


000040 




SUB 


#40, RO 


51 001250 


120004 




12*: 


CMPB 


RO, R4 


52 001252 


001006 






BNE 


4* 


53 001254 


005703 






TST 


R3 


54 001256 


001004 






BNE 


4* 


55 001260 


105012 






CLRB 


(R2) 


56 001262 


012'702 


002052 ' 




MOV 


# SWBUF, R2 


57 001266 


005203 






INC 


R3 



i CHECK IN TO ROOT 



SAVE TOP OF MEMORY ADDRESS 
SET USR SWAP LOCATION 
Enable? the switch finder 
Save off string pointer 
We running under RSTS? 

~y no 
Yes, if there is an equal 
we must ignore switches 



sign, then 
to the 
left of it </MODE:n, /SI:m, etc ) 



jDon't look within quoted strings 



j We have a "==", disable switch finder 
i Reset (possibly) the string ptr 
i PUT FILE SPECS HERE 



GET NEXT CHAR FROM COMMAND 

START OF QUOTED STRING? 

BR IF NOT 

ACCEPT ALL CHARS IN QUOTED STRINO 

GET NEXT CHAR IN STRING 

BR IF END OF COMMAND HIT 

END OF QUOTED STRING? 

BR IF NOT 

IGNORE SPACES 

LOWER CASE 'a'? 

BR IF NOT LOWER CASE LETTER 

LOWER CASE 'z '? 

BR IF NOT LOWER CASE LETTER 

CONVERT TO UPPER CASE LETTER 

START OF SWITCHES? 

BR IF NOT 

IS THIS THE 1ST SWITCH? 

BR IF NOT 

END FILE SPEC 

GO TO SWITCH BUFFER 



SOR T 1 S rjH 1 J M .1 7 I Al . I Z AT I DM 
SORT INITIA!. IZATIOM 
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58 OOtS/0 

59 OOir-74 

60 001276 

61 00 J 302 

62 001304 



120027 
001002 
012704 
1 1 0022 
001334 



000075 



000057 



4$: 



14*: 



CMPB 


RO,U'=- 


BNE 


14* 


I^OV 


#'/> R4 


MOVB 


RO, <R2>-f 


BNE 


3* 



On "="i enable (poss) 
MOVE CHAR TO BUFFER 
CONTINUE UNTIL WE HIT 



sufitch findei 



A NULL 



I 
I 
i 
I 

c 
I 

4 

f 

i 
i 

I 
€ 

i 

i 
I 

4 
i 



SORT! so;n 

PARSE SWJTCH, 



INFFIALIZATIOM 



3 
4 
5 
6 
7 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
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. SBTTL PARSE SWITCHtrS 



PARSE SWITCH STRING 



001 
00 i 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
00 J 
001 
001 
001 
001 
001 
001 
001 
001 

001 
001 
001 
001 

001 
001 

001 
001 
001 
001 
00 J 



306 
312 
316 
322 
326 
332 
336 
342 
346 
352 
356 
362 
366 
372 
376 
402 
406 
4 1 2 
416 
422 
426 
432 

436 
442 
446 
4?2 

456 
464 

472 
476 
502 
504 
510 



005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
105067 
105067 
,t)05067 
005067 
005067 
005067 

005067 
005037 
005067 
005067 

012767 
012767 

012700 
012702 
1 1 0022 
020227 
103774 



0000000 
OOCOOOG 
OOOOOOG 
0000000 
OOOOOOG 
00G002G 
OOOOOOG 
000002G 
OOCOOOG 
OOOOOOG 
OOOOOOG 
OOCOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
000510 
OOOOOOG 
OOOOOOG 

177777 
177777 

000060 
OOOOOOG 

0000 lOG 



OOOOOOG 
OOOOOOG 



PARSW: CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLRB 
CLRB 
CLR 
CLR 
CLR 
CLR 

. IF DF RTll 
CLR 
CLR 
CLR 
CLR 

. ENDC 

MOV 
MOV 

; Initialize 
MOV 
MOV 

2$: MOVB 
CMP 
BLO 



NUMKY2 

INRLEW 

RECLEN 

SKPCNT 

SRTCNT 

SRTCNT+2 

TMPC NT 

TMPCNT (2 

SKPVAL 

RCNTl 

RCNT2 

EOFBUF 

FLDMAP 

SEL.ADR 

EOFCOL 

BLKFC 

EOFCHR 

UEOF 

NUMLEN 

SFLAGS 

I TYPE 

OTYPE 

CINSPC 
©#510 
CHNPPN 
FILPPN 



i # OF KEYS 

i INPUT RECORD LENGTH 

i# OF RECORDS TO SKIP 

,• # RECORDS PASSED TO SORT 

i# BLOCKS WRITTEN TO TEMP FILE 



i ZERO RECORD COUNTERS 



NO FIELD MAPPING 

NO RECORD SELECTION 

NO USER EOF CHARACTER 

NO BLOCKING FACTOR YET 

END OF FILE CHARACTER 

HAVEN'T HIT USER'S EOF RECORD 

NO RECORD NUMBERING WANTED 

STATE FLAGS 

NO INPUT FILE TYPE 

NO OUTPUT FILE TYPE 

CHAIN FILE NAME 

NO CHAIN MESSAGE 

Default chain PPN == current PPN 

As well as the default file PPN 

i SET TO SORT INFINITE # RECORDS 



#177777, MXRECl 
M 177777, MXREC2 
record number counter to zero. 
#'0, RO 

#NUMBUF, R2 J BCD RECORD COUNTER BUFFER 
RO, (R2)+ iSET TO ALL ZERO 
R2, #NUNBUF-*-8. > DONE ALLT' 
2* i BR IF NOT 



i 
i 
I 

i 

4 
i 
« 
I 

i 

€ 

4 

< 

I 

i 

€ 

4 



SORTi SO,'<T INITIALIZATION 

PARSE swrrci'ts 
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€ 
I 



1 


003 512 


012701 


002053 ' 


3 


001516 


012702 


003452' 


4 


001522 


005012 




5 


001524 


112100 




6 


001526 


120027 


OOOlOl 


7 


001532 


103410 




8 


001534 


120027 


000132 


9 


001540 


101005 




10 


001542 


020227 


003454 ' 


li 


001546 


103366 




12 


001550 


1 1 0022 




13 


001552 


000764 




14 








15 








16 


001554 


005301 




17 


001556 


016702 


003452' 


IS 


001562 


012703 


000000 ' 


19 


001566 


020223 




20 


001570 


001407 




21 


001572 


O20327 


000042 ' 


22 


001576 


103773 




23 


001600 






24 








25 








26 








27 


001610 


162703 


000002 ' 


28 


00.1614 


000173 


000000 ' 



i SCAN 
GE1SW: 

3*: 



If: 



5$; 



MOV 
NEXT 
MOV 
CLR 
MOVB 
CMPB 
BLO 
CMPB 
BHI 
CMP 
BHIS 
MOVB 
BR 
KEYWORD < 
SEE IF WE 
DEC 
MOV 
MOV 
CMP 
BEQ 
CMP 
BLO 
XXX 



#SWBUF+1,R1 
KEYWORD AND STORE 

#KEYWD, R2 

e'R2 

<R1)+>R0 

RO, # 'A 

1* 

RO, #'2 

lli 

R2, #KEYWD<-2 

3* 

RO, (R2) + 

3* 
2 CHARS) IS NOW IN 
RECOGNIZE IT. 

Rl 

KEYWD, R2 

#KEYTAB, R3 

R2> <R3) -s- 

4* 

R3, #KEYEND 

5* 

20 



i START 
1ST TWO CHARS IN KEYWD. 
; RECEIVING BUFFER 



GET NEXT CHAR 
IS IT A LETTER? 
BR IF NOT 



; BR IF NOT 

; GOTTEN 2 CHARS YE1 ? 
; BR IF YES 
i STORE CHAR 

; PROCESS REST OF SWITCH KEYWORD 
KEYWD. 



POINT TO SWITCH DELIMITER 

GET KEYWORD 

POINT TO SWITCH NAME TABLE 

LOOK UP KEYWORD 

BR IF FOUND 

CHECKED ALL? 

BR IF MORE TO CHECK 

INVALID SWITCH 



WE RECOGNIZE THE SWITCH — BRANCH OFF TO PROCESSING ROUTINE. 
Rl POINTS TO DELIMITER WHICH FOLLOWED KEYWORD. 
4*: SUB #<KEYTAB+2>, R3 

JMP eKEYBR<R3) ; ENTER PROCESSING ROUTINE 



SORT I SORT 
PARSE SWITvi^ 

1 



IMITIALIZATION 
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3 
4 
5 
6 
7 

a 

9 

10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
20 
29 
30 
31 
32 
33 
34 
3S 
36 
37 
33 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001 
001 
00 i 
001 
001 
001 
001 
001 
001 

00 i 

001 
001 
001 
001 
001 
001 
001 
001 



.-^20 
624 
63() 
632 
634 
644 
650 



654 
660 
662 
666 
670 
700 
702 
706 
710 
716 



001 
001 
00 1 
001 
001 



726 
732 
736 

/42 



001 
001 
001 
001 
001 



744 
750 
754 
760 
766 



001 
001 
002 
002 



770 
774 
000 
004 



002 
002 
OOP 
002 
00 



006 
012 
016 
020 

024 



004767 
004767 
005705 
003004 

010567 
1 1 1 1 00 
001421 
120027 
001416 
120027 
001404 

005201 
122127 
001370 
052767 
000167 



004767 
004767 
010567 
010567 
000765 



004767 
004767 
010567 
016767 
000753 



004767 
004767 
010567 
000744 



004767 
012702 
112100 
004767 
001007 



011562 
011262 



ooooooe 



000057 



000072 



000126 

OOOOOOG 
002544 



011460 
011160 
OOOOOOG 
OOOOOOG 



011436 
011136 
OOOOOOG 
003454' 



011412 
011112 
OOOOOOG 



011374 
000510 

011046 



/SIZE: NNN 



SWSI2E: 



1*: 



OOOOOOG 



3*: 
2*: 



NXSJ: 



CALL 

CALL 

TST 

BGT 

XXX 

MOV 

MOVE 

BEQ 

CMPB 

BEQ 

CMPB 

BEQ 

XXX 

INC 

CMPB 

BNE 

BIS 

JMP 



-■ RECORD SIZE 

CKCOL 

ACRDEC 

R5 

1$ 

2 

R5, INRLEN 

<R1), RO 

NXSJ 

RO, #'/ 

NXSJ 

RO, # ' : 

2* 

19 

Rl 

(Rl )+, #'V 

3* 

#F*VLEN, SF-LAGS 

NX"fSW 



CHECK FOR COLON 
ACCRUE SIZE 
MUST BE >0 

INVALID RECORD SIZE 

SAVE RECORD LENGTH 

GET VALUE DELIMITER 

END OF SWITCHES 

START OF NEXT SWITCH 

BR IF YES 

ADDITIONAL PARAMETER? 

BR IF YES 

INVALID SYNTAX 

NEXT PARAMETER SHOULD BE "V" 

;BR IF BAD 

i REMEMBER VARIABLE LENGTH 



/SKIP: NNN 



SKIP # OF RECORDS 



SWSKIP: 



CALL 

CALL 

MOV 

MOV 

BR 



CKCOL 
ACRDEC 
R5, SKPCNT 
R5, SKPVAL 
NXSJ 



CHECK FOR COLON 
ACCRUE VALUE 
STORE SKIP COUNT 



OOOOOOG 



/REC: NNN 

3WREC: CALL 
CALL 
MOV 
MOV 
BR 



/BLOCK: NN 

SWBLOK: CALL 
CALL 
MOV 
BR 

. IF DF RTll 



— SEI MAX # OF RECORDS TO SORT 



CKCOL 
ACRDEC 
R5, MXRECl 
VALHI, MXREC2 
NXSJ 



CHECK FOR COLON 
ACCRUE VALUE 
STORE LOW ORDER PART 
STORE HIGH ORDER PART 



SET INTERNAL FILE BLOCKING FACTOR. 



CKCOL 
ACRDEC 
R5, BLKFC 
NXHJ 



CHECK FOR COLON 
ACCRUE DECIMAL NUMBER 
SET BLOCKING FACTOR 



/SEND: 'text ' 



SEND MESSAGE THROUGH CHAIN DATA AREA. 



SWSND: 



MOV 
MOVB 
CALL 
BNE 



CKCOL 
#510, R2 
(Rl)+, RO 
QUOTCK 
2* 



CHECK FOR COLON 

POINT TO CHAIN DATA AREA 

GET 1ST CHARACTER OF MESSAGE 

IS TEXT STRING QUOTED? 

BR IF NOT 



« 
I 
I 
< 

4 
I 
f 
< 
C 
€ 
i 

f 
i 

4 
i 
I 
« 
4 



SOR T I SnU 1 3 N I T I Al. . I Z AT I ON 
PARSE SWITCfico 



MACRO V05. OJb Mondaq 06-Maq--SS 16: f)6 Psge IS-J 



58 
59 
60 
61 
62 
63 
64 
6b 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
70 
79 

30 

Si 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 



TEXT 



00i;'026 
002030 
002034 
002036 
002040 
002t>42 

002044 
002046 
002050 
002052 
0020 f?6 
002060 
002062 
002064 



002066 
002074 



002100 
002106 
0021 J -I 
002120 



002126 
002130 
002134 
002 i 36 
002140 
002 1 42 
002144 
002146 
002152 
002156 
002162 
002164 
002166 
002172 
002176 



112100 
120067 
001412 
1 1 0022 
001372 
000406 

1 1 0022 
001404 
112100 
120027 
001372 
005301 
105012 
000403 



4-$: 



052767 
000167 



012767 
1 1 2767 
121127 
001026 
004767 

111100 
004767 
001004 
005201 
112105 
005201 
000402 
004767 
110567 
121127 
001005 
005201 
004767 
010567 
000167 



003526 



TEXT 



?*: 



000057 



5*: 
1*: 

. ENDC 



STRING 


IS OUOTED 


MOVE 


(Rl)+, RO ■> 


CMPB 


RO, QUOTE i 


BEQ 


1* i 


MOVB 


RO, <R2)i- i 


BNE 


4* i 


BR 


5* i 


STRING 


IB NOT QUOTED 


MOVB 


RO, (R2)+ i 


BEQ 


5* i 


MOVB 


<R1)+, RO ; 


CMPB 


RO, #V i 


BNE 


2* > 


DEC 


Rl i 


CLRB 


<R2) } 


BR 


NXSJl ; 



/BIN 



OOOOOOG OOOOOOG SWBIN: 
002366 NXSJl : 



— BINARY RECORDS - 

BIS #F*BIN, SFLAGS 
JMP NXTSW 



MOVE CHARS IN MESSAGE TILL QUOTE HIT 

END OF MESSAGE? 

BR IF YES 

STORE TEXT CHAR IN SAVE AREA 

BR IF NOT END OF COMMAND 

HIT END OF COMMAND 

MOVE CHAR TO SAVE AREA 

BR IF HIT END OF COMMAND 

GET NEXT TEXT CHAR 

START OF NEXT SWITCH? 

BR IF NOT 

POINT BACK ONE 

STORE NULL AT END OF STRING 

GO PROCESS NEXT SWITCH 



DON'T LOOK FOR CTRL-Z. 
i REMEMBER THIS IS A BINARY RECORD 



/EOF: CHAR: COL 



- DECLARE EOF SENTINEL 



000001 
000032 
000072 

011260 



010736 



OOOOOOG 
OOOOOOG 



SWEOF: 



SEE 



011036 

OOOOOOG 

000072 



010720 
OOOOOOG 



If: 
2*: 



9*: 



MOV 
MOVB 
CMPB 
BNE 
CALL 
IF CHAR 
MOVB 
CALL 
BNE 
INC 
MOVB 
INC 
BR 

CALL 
MOVB 
CMPB 
BNE 
INC 
CALL 
MOV 
JMP 



#1, EOF'COL 
#CTRLZ, EOFCHR 
< R 1 ) , # ' : 
9-* 

CKCOL 
SPECIFIED IN 
(Rl), RO 
QUOTCK 
1* 
Rl 

(Rl)+, R5 
Rl 
2* 

ACRDCT 
R5, EOFCHR 
( R 1 ) , « ' : 
9* 
Rl 

ACRDEC 
R5, EOFCOL 
NXTSW 



COLUMN NUMBER 



; SET DEFAULT EOF 
i AND EOF CHAR 
iDID USER SPECIFY VALUE? 
i BR IF NOT 
; CHECK FOR COLON 
QUOTES OR AS OCTAL VALUE 
i GET NEXT CHARACTER 
i IS STRING QUOTED 
; BR IF NOT 
> SKIP OVER QUOTE 
; GET EOF CHAR 
iSKIP OVER TRAILING QUOTE 



ACCRUE OCTAL CHAR VALUE 

STORE CHARACTER CODE 

IS COLUMN NUMBER SPECIFIED? 

BR IF NOT (USE 1) 

SKIP OVER COLON 

ACCRUE DEC VALUE OF COLUMN 

SAVE EOF COLUMN NUMBER 



SORT I SORT INITIALIZATION 
PARSE SWITCI'cS 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

la 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



002202 
002206 
002212 
002214 
002216 
002222 
002224 
002230 
002232 
002234 
002236 
002240 
002242 
002246 
Ov'22 50 
002260 



002264 
002266 
002.304 
002306 

OOZ'310 
002314 
002320 
002322 
002526 
002330 
002334 
002336 
002342 
002346 
002352 
002354 
002356 
002360 
002362 



010605 

103426 
010506 

012702 
012703 
012223 
020327 
103774 
105767 
001412 
013702 
062702 
012703 
012223 
012223 
012223 
012223 
000207 



011200 
001604' 



010650 
000057 



004767 
012702 
112100 
001410 
004767 
001773 
120027 
001402 
1 1 0022 
000766 
105012 
005301 
004767 
103004 



000167 002202 



IF DF RTll 



/CHAIN: DEV: FILE. EXT 



- CHAIN TO NEXT PROGRAM 



MOVE 
SWCHAN: 

2*: 



1$: 



10*: 

LET 
SETCHN: 



MOVE 



FILE NAME TO C INF 1 1 

CALL CKCOL 

MOV #CINFIL,R2 

MOVE (Rl)+, RO 

BEQ 1* 

CALL QUOTCK 

BEQ 2* 

CMPB RO, #'/ 

BEQ 1 * 

MOVE RO, (R2)^ 

BR 2* 

CLRB <R2) 

DEC R 1 

CALL GEfCHN 

BCC 1 06 

XXX 21 

JMP NXTSW 



CSISPC PARSE FILE NAME 

MOV SP. R5 i SAVE SP 

. CSISPC #XBUF, #CHADEX. #CINFIL 

BCS 5* 'BR IF BAD NAME 



AND INSERT TRAILING NULL 
CHECK FOR COLON 
PUT NAME HERE 
PICK UP CHAR FROM NAME 
BR IF HIT END 
IGNORE QUOTES AROUND THE NAME 



HIT NEXT SWITCH? 
BR IF YES 
MOVE 70 CINFIL 

PUT NULL AT END OF NAME 
POINT BACK TO DELIMITER 
Set up the chain info 



001662' 
OOOOOOG 

0000 lOG 

OOOOOOG 

000054 
000400 
OOOOOOG 



4*: 



5*: 
. ENDC 



MOV 

FILE 

MOV 

MOV 

MOV 

CMP 

BLO 

TSTB 

BEQ 

MOV 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



R5, SP 
NAME TO SAVE AREA 
#XBUFH-36, R2 
#CINSPC. R3 
<R2)+, <R3)+ 
R3, #CINSPC + 10 
4* 

RSTS 
5* 

€■#54, R2 
#CSPC0F+2, R2 
#CINNRT/R3 
<R2)+, (R3) + 
<R2)+, (R3) f- 
<R2)+> <R3) + 
<R2)+, <R3)+ 



i RESTORE 
IN ROOT 



SP 



We under RSTS? 
=:> no 

Yes* save off the special info 

<See the SVRSTS routine's comments 
for what is happening here) 



50RTI 



SORT I^fnIAI I2ATI0N 
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PARSE swr 



3 
4 
5 
h 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



00236'"} 
002370 
00r?376 

002402 
002404 
002410 
002416 
002424 
00243? 
002440 
002444 
002446 



00. 
00 



3452 
:'460 



002461 
002470 
002474 
002476 
002502 
002ti06 
002S 10 
002520 
002524 
002530 



002534 
002540 
002542 
002; '4 6 

002550 
0O2554 



0{ 



56 



002562 
002566 
002572 
002574 



016704 
062767 
004767 

112100 
004767 
016764 
016764 
016764 
016764 
12A127 
001747 
000167 



004767 
004767 
005305 
010567 
122127 
001404 

004767 
010567 
000167 



/KtY: TDS. L: (DG. L: . . . 



- DEFINE SORT KEYS 



OOOOOOG SWKEY: 

000002 OOOOOOG 
011004 

i GET 



007240 
003506 ' 
003500 ' 
003502 ' 
003504 ' 
000072 

002014 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



. IF DF 



MOV NUMKY2> R4 

ADD #2, NUMKY2 

CALL CKCOL 
1ST CHAR WHICH DEFINES 

MOVB (Rl){-, RO 

CALL ACRFLD 

MOV FLDDRD, KAD < R4 ) 

MOV FLDPOS, KSTRT < R4 ) ; SET 

MOV FLDS I Z , KLEN ( R4 ) 

MOV FLDTYP,KTYPE<R4) 

CMPB < R 1 ) , # • : 

BEQ SWKEY 

JMP NXTSW 
RTll 



OF KEYS SO FAR 



;eET # 
i INC # 

; CHECK FOR COLON 
TYPE OF KEY 



PARSE FIELD SPEC 

SET ASCENDING/DESCENDING FLAG 

STARTING POSITION OF FIELD 
SET FIELD LENGTH 
SET FIELD DATA TYPE 
IS THERE ANOTHER KEY DESCRIPTOR? 
YES — ~ GO GET IT 



/PAUSE 



052767 OOOOOOG OOOOOOG SWFAUS: BIS 
000167 002002 JMP 

. ENDC 



PAUSE AFTER READING INPUT 

#F*PAUS, SFLAGS ; REMEMBER TO PAUSE 
NXTSW 



/NUMBER: col. Jen — Insert record number. 



010716 
010416 

OOOOOOG 
000056 



010366 

OOOOOOG 

001732 



SWNMBR: CALL 
CALL 
DEC 
MOV 
CMPB 
BEQ 
XXX 

1*: CALL 
MOV 
JMP 

. IF DF RTll 



CKCOL 

ACRDEC 

R5 

R5, NUMCOL 

(Rl)+, #'. 

1* 

36 

ACRDEC 

R5> NUMLEN 

NXTSW 



CHECK FOR COLON 

GET STARTING COLUMN NUMBER 

CONVERT TO BYTE INDEX INTO RECORD 

PERIOD SHOULD BE DELIMITER 

BR IF OK 

INVALID SWITCH 

GET LENGTH OF NUMBER FIELD 



004067 

OOOOOOG 

121127 

001003 

004067 

OOOOOOG 

000167 



0000^ 



000072 



000006 



001704 



/PPN: Echain ppn3: Cfile ppn3 — Define default chain and file 
open request PPNs for RSTS 

iProce£i£ the first switch 



Is there a second part? 

=:> no 
Yes< process itj also 



004/67 010620 

121127 000072 
001432 

122127 000133 



SWPPN: 


JSR 


RO, 5* 




. WORD 


CHNPPN 




CMPB 


< R 1 ) , # ' : 




BNE 


1* 




JSR 


RO, 5$ 




. WORD 


F 11 PPN 


1%: 


JMP 


NXTSW 


5$: 


CALL 


CKCOL 




CMPB 


( R 1 ) , # ' : 




BEQ 


lot. 




CMPB 


<Rl)+,#'r 



Insure colon present 
Null entry? 

=> yes 
Check for a left bracket 



i 
t 
f 
I 
< 
< 
I 
\ 

i 

€ 

i 

€ 
€ 
4 

t 
I 
4 
4 

t 



SORT I 


SORT Ih 


ITIAL IZA 


TIDtNi 


PARSE SWITvl'irS 






58 


00r-6(;0 


001031 




59 


oo::'&02 


004767 


010304 


60 


002606 


032705 


17 7400 


61 


QfC'jh \ 2 


00 1 024 




6P. 


002614 


010504 




63 


002616 


000304 




64 


002620 


122127 


000054 


65 


002624 


001017 




66 


002626 


004767 


010260 


67 


002632 


032705 


177400 


68 


002636 


001012 




67 


002640 


122127 


000135 


70 


O-r'2644 


001007 




71 


002646 


050504 




7S 


002650 


011005 




73 


002^52 


005715 




74 


00.; '6 54 


001001 




75 


002656 


010415 




76 


002660 


005720 




77 


002662 


000200 




7B 


002664 






79 








80 








81 








82 








S3 








84 


002674 


004767 


000056 


85 


002700 


103004 




36 


002/02 






37 


002712 


010267 


OOOOOOG 


as 


002/16 


000167 


001544 


89 








90 








91 








92 








93 


002722 


004767 


000030 


94 


002726 


103407 




95 


002730 


032702 


OOOOOOG 


96 


002734 


001004 




97 


002736 


010267 


OOOOOOG 


98 


002742 


000167 


001520 


99 


002746 
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BNE 


J 515 




CALL 


ACRDEC 




BIT 


#177400>R5 




BNE 


1 5$ 




MOV 


R5, R4 




SWAB 


R4 




CMPB 


<R1 )•+•,#', 




BNE 


15* 




CALL 


ACRDEC 




BIT 


#177400, R5 




BNE 


1 5t. 




CMPB 


(Rl>+,#'3 




BNE 


15* 




BIS 


R5, R4 




MOV 


(RO), R5 




TST 


<R5) 




BNE 


10* 




MOV 


R4, (R5) 


10^: 


TST 


< RO ) + 




RTS 


RO 


15*: 


XXX 


21 


. ENDC 







i Get the project number 
; Insure its val id 

; Load it in high order of R4 

i Jn&urt> comma is. next 

i Get the programmer number 
; Insure its valid 

; And follouied by right bracket 

; Complete the RSTS PPN word 

; Get the load address 

iOnly use the first one seen 

J Skip the argument 



/ITYPE: lor ~- Specify input file type. 



SWJTYP: 


CALL 


GETTYP 




BCC 


1* 




XXX 


34 


1*: 


MOV 


R2, ITYPE 




JMP 


NXTSW 



PARSE FILE TYPE 
BR IF NO ERROR 
INVALID ITYPE PARAMETER 
SAVE INPUT FILE TYPE 



/OTYPE: lor 



Specify output file type. 



SWOTYP: 


CALL 


GETfYP 




BCS 


1* 




BIT 


#RT*OX, R2 




BNE 


1* 




MOV 


R2, OTYPE 




JMP 


NXTSW 


1*: 


XXX 


35 



PAUSE FILE TYPE 

BR IF ERROR 

OUTPUT ORGANIZATION CANNOT BE INDEXED 

BR IF IT IS 

SAVE OUTPUT FILE TYPE FLAGS 

i INVALID OTYPE PARAMETER 



30RT1 SijUl 

PARSE sw IT ■:.];, 



JWrFIAl I?ATJDN 
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1.;' 

4 








5 


002/56 


004767 


010424 


6 
7 
8 
9 
10 


002762 


005002 




002764 


112100 




11 


002/66 


120027. 


000103 


12 


002772 


001003 




13 


002774 


052702 , 


OOOOOOG 


14 


002000 


000435 




15 


003002 


120027 


000104 


16 


003006 


001003- 




17 


003010 


052702 


OOOOOOG 


18 


003014 


000427 




19 


003016 


120027 


000106 


20 


003022 


001003 




21 


003024 


052702 


OOOOOOG 


22 


003030 


000421 




23 


003032 


120027 


000130 


24 


003036 


001003 




2^) 


003040 


052702 


OOOOOOG 


26 


003044 


0004 1 3 




27 


003046 


120027 


000124 


28 


003052 


001003 




29 


0030 54 


052702 


OOOOOOG 


30 


003060 


000405 




31 


003062 


120027 


000122 


32 


003066 


001066 




33 


005070 


052702 


OOOOOOG 


34 








35 








36 








37 


003074 


111100 




38 


003076 


001434 




39 


003100 


120027 


000057 


40 


003104 


001431 




41 


003:!. 06 


005201 




42 


003110 


120027 


000123 


43 


003114 


001003 




44 


003116 


052702 


OOOOOOG 


45 


003122 


000425 




46 


003124 


120027 


000122 


47 


003130 


001003 




48 


003132 


052702 


OOOOOOG 


49 


003136 


000417 




50 


003140 


120027 


000111 


51 


003144 


001403 




52 


003146 


1 20027 


000130 


53 


003152 


001034 




54 


003154 


032702 


OOOOOOG 


55 


003160 


001431 




56 


003162 


052702 


OOOOOOG 


57 


003166 


000403 





; Get 

> On r 

i 

GE1TYP: 



file type codes (R'Cixxx) specified with the /ITYPE & /OTYPE switches, 
eturn thf fleqs are in R2. 



CALL. 
CLR 



CKCOL 
R2 



; Get language type. 





MOVB 


<R1 )+, RO 




CMPB 


RO, # 'C 




BNE 


1* 




BIS 


#RT-5CBL, R2 




BR 


G10RG 


1*: 


CMPB 


RO, « 'D 




BNE 


2* 




BIS 


#RT*DBL, R2 




BR 


GTPRG 


2«: 


CMPB 


RO, #'r- 




BNE 


3* 




BIS 


#RTf FTN, R2 




BR 


GTDRG 


3*: 


CMPB 


RO, #'X 




BNE 


4* 




BIS 


#RT*X, R2 




BR 


GTORG 


4*: 


CMPB 


RO, #'T 




BNE 


5* 




BIS 


#RT*TXT, R2 




BR 


GTORG 


5*: 


CMPB 


RO, «'R 




BNE 


GTERR 




BIS 


#RT*f"ll, R2 


i 

; Get 


file organization t 


i 

GTORG: 


MOVB 


<R1 ), RO 




BEQ 


5* 




CMPB 


R0> # V 




BEQ 


5* 




INC 


Rl 




CMPB 


RO, #'S 




BNE 


1* 




BIS 


#RTHDS, R2 




BR 


GTRND 


1*: 


CMPB 


RO, #'R 




BNE 


2* 




BIS 


«RT$OR, R2 




BR 


GTRMD 


2*: 


CMPB 


RO, # ' 1 




BEQ 


3« 




CMPB 


RO, #'X 




BNE 


GTERR 


3*: 


BIT 


#RT*CBL, R2 




BEQ 


GTERR 




BIS 


#Rrf.OX, R2 




BR 


GTRMD 



i CHECK FOR COLON 
i BUILD FLAGS IN R2 



GET LANGUAGE CODE LETTER 
COBOL? 
BR IF NOT 
COBOL FLAG 

DIBOL? 
BR IF NOT 
DIBOL FLAG 

FORTRAN? 
BR IF NOT 
FORTRAN FLAG 

ARBITRARY DATA? 
BR IF NOT 
ARBITRARY DATA TYPE 

TEXT FILE? 
BR IF NOT 
7 EXT FLAG 

;FILES-11 FORMAT? 

; NOPE. AND NONE OF ABOVE 



I 



GET ORGANIZATION CODE LETTER 

BR IF HIT END OF COMMAND 

HIT NEXT SWITCH? 

BR IF YES 

ADVANCE CHAR POINTER 

SEQUENTIAL ORG? 

BR IF NOT 

ORG=^SEQ 

RELATIVE ORGANIZATION? 
BR IF NOT 
ORG=-RFLATIVE 

ISAM ORG? 

BR IF YES 

ISAM ORG? 

ERROR IF NONE OF ABOVE 

ISAM ONLY LEGAL FOR COBOL 

BR IF NOT COBOL 

ORG=a£iAM 

GO GE1 RECORDING MODE 



i 
I 
€ 

4 
I 

4 
i 
i 

i 



SORTI 


SORT Ih 


rriALiZA 


TIDN 


PARSE swncr^s 






5B 








59 


003170 


052702 


OOOOOOC 


60 


003174 


000421 




61 








62 








63 








64 


003176 


111100 




65 


003200 


001407 




66 


003202 


120027 


000057 


67 


003206 


001404 




68 


003210 


005201 




69 


003212 


120027 


000101 


70 


003216 


001003 




71 


005220 


052702 


OOOOOOG 


72 


003224 


000405 




73 


003226 


120027 


000102 


74 


003232 


001004 




75 


003234 


052702 


OOOOOOG 


76 








77 








78 








79 


003240 


00024 1 




80 


003242 


000207 




81 








82 








83 








34 


0O3244 


000261 




85 


003:'46 


000207 
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> Set default orqani j:ation and 
5«; BIS #RT«OS+RT$RA, R2 
BR QTOK 





Get 


recording mcKie. 


GTRMD: 


MOVE 


(R1),R0 






BEQ 


1* 






CMPB 


RO, # V 






BEQ 


1* 






INC 


Rl 






CMPB 


RO, #'A 






BNE 


2* 


1*: 




BIS 


#RT*RA, R2 






BR 


GTOK 


2$: 




CMPB 


RO, #'B 






BNE 


GTERR 






BIS 


#RT$RB, R2 




Finished. 




GTOK: 


CLC 








RETURN 





recording mode. 

i OR 0=^ SEQUENTIAL, RECORDING MODE 



= ASCII 



GET RECORDING MODE CODE LETTER 

BR IF HIT END OF COMMAND 

HIT NEXT SWITCH? 

BR IF YES 

ADVANCE CHAR POINTER 

ASCII? 

BR IF NOT 

MODE=ASC I I 

BINARY? 

ERROR IF NEITHER 

MODE=BINARY 



SIGNAL GOOD RETURN 



Error. 



GTERR: 



SEC 
RETURN 



i SIGNAL ERROR ON RETURN 



SORT I 
PARSE 



SORT 

swnci" 



miJIALlIATIDN 
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i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



/INCLUDE; < expreiision ) — Perform record selection. 



23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

33 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



003250 
003254 
003:^62 
003264 
003270 



003274 
003276 
003G02 

003304 
003310 
003216 



003320 
003324 
003326 
003332 
003334 
003340 
003342 
003346 
003352 
003356 
003362 



002376 
003404 
003410 
0G34 1 2 
0034 1 4 
003420 
003422 
003426 
003430 
003434 
003440 
003444 

003452 
003460 
003466 

003474 
003476 
0<X;i500 



004767 
012767 
005002 
105067 
105067 



112100 
120027 
001006 

005367 
112777 
000766 



120027 
001022 
122127 
001013 
1221 27 
001010 
012703 
105267 
105267 
000167 



162767 
016703 
005702 
001403 
010362 
000402 
010367 
010302 
010267 
005062 
105062 
1 1 2762 

016762 
016762 
116762 

112103 
112100 
000300 



010132 SWJNCL: CALL CKCOL 

003537' 003540' MOV #OPRSTP, OPRSTK 

CLR R2 

OOGOOOG CLRB ANDFLO 

OOOOOOG CLRB ORFLG 



CHECK FOR COLON 
INIT OPERATOR STACK 
NO SELECT BLOCKS YET 
NO "AND" OPERATORS YET 
NO "OR" OPERATORS YET 



000050 



003540 ' 
0000O4 



000116 

000117 

000124 

000007 
OOOOOOG 
OOOOOOO 
000436 



005372 004767 006252 



000014 
OOOOOOG 



OOOOOO 

OOOOOOG 

003476 ' 
OOOOOO 
000005 
OOOOOO 

003500 ' 
003502' 
003504 ' 



Get next comparison specification. 



SLCSPC 



GET NEXT CHARACTER 
OPEN PAREN? 
BR IF NOT 



003540 



MOVB <R1)+, RO 

CMPB RO, # ' < 

BNE 4* 
Got open paren. Push operator on stack. 

DEC OPRSTK ; MAKE ROOM ON STACK 

MOVB #OP*LPN, ©OPRSTK ; PUT LEFT PAREN OPERATOR ON OPERATOR STACK 

BR SL.COPC 



4$: 



9*: 



Check for "NOT" operator 

CMPB RO, #'N 

BNE 1 vn 

CMPB <R1)+, #'0 

BNE 9* 

CMPB (Rl)+, #'T 

BNE 9* 

MOV #OP*NOT, R3 

INCB ANDFLG 

INCB ORFLG 

JMP SLOPX 

XXX 29 



START OF "NOT"? 
BR IF NOT 
CHECK SPELLING 



i SAY OPERATOR IS "NOT" 

; FORCE FULL EXPRESSION EVALUATION 

i DO EXPRESSION GENERATION 
i INVALID SELECT SYNTAX 



This should be the start of a field specification. 



OOOOOOG 



2*: 

3*: 



000002 

000006 
0000 lO 
000003 



1*: CALL 
; Bui Id a s 
SUB 
MOV 
TST 
BEQ 
MOV 
BR 
MOV 
MOV 
MOV 
CLR 
CLRB 
MOVB 
Store fie 
MOV 
MOV 
MOVB 
get c 
MOVB 
MOVB 
SWAB 



i Now 
SLCMOP 



ACRFLD 
keleton selection co 

#S*$S2, TOPMEM 

TOPMEM, R3 

R2 

2* 

R3, S*LINK<R2) 

3'* 

R3, SELADR 

R3, R2 

R2, CURSEL 

S*LINK(R2> 

S*FLG<R2) 

#S0*CMP,S*0PR<R2 
Id specification inf 

FLBPOS, S'feP0Sl<R2 

FLDSIZ, S*SI21(R2 

FLDTYP,S'&TYP(R2) 
omparison operator. 

(Rl )+, R3 

<R1 )+•, RO 

RO 



i ACCRUE FIELD SPECIFICATION 

ntrol block. 

> RESERVE ROOM FOR BLOCK 

; BUILD BLOCK HERE 

i IS THIS THE FIRST BLOCK? 

i BR IF YES 

i CHAIN LAST BLOCK FORWARD TO NEW BLOCK 

; REMEMBER ADDRESS OF FIRST CONTROL BLOCK 

iADDR OF NEW BLOCK IS CARRIED IN R2 

i REMEMBER ADDR OF CURRENT SELECT BLOCK 

; CLEAR OUR FORWARD LINK 

; CLEAR CONTROL FLAG BYTE 

);SAY OPERATION IS FIELD COMPARISON 

ormation in select block. 

)i STARTING BYTE POSITION 

)i FIELD SIZE 

i DATA TYPE 



GET 1ST CHARACTER 
GE7 2ND CHARACTER 
P\.}J TOGETHER THE i 



? CHARACTERS 



SORT I 


SORT I^ 


ITIAI.IZA 


TIDM MACRO 


PARSE SWlTCi'ES 






53 


003502 


050300 




59 


00350^5 


012703 


OO0014 


60 


003510 


020063 


1 77776 ' 


61 


003::-i4 


001407 




62 


005516 


162703 


000002 


63 


003522 


001372 




64 


003:>24 






65 








66 


003534 


006203 




67 


003536 


116362 


000013' 000004 


68 








69 








70 








71 


003544 


112100 




72 


003546 


1 20027 


000101 


73 


005552 


103403 




74 


003554 


1 20027 


000132 


75 
76 
77 


003560 


003406 










73 


003562 


004767 


006416 


79 


003566 


1 52762 


000001 000005 


80 


003574 


0004 1 5 




81 








82 








03 


003576 


004767 


006046 


84 


003602 


016762 


003500' 000012 


85 


003610 


126762 


003504' 000003 


86 


003616 


001404 




87 


003620 






88 








89 








90 








91 








92 


003630 


112100 




93 


003632 


001403 




94 


003634 


120027 


000057 


95 


003640 


001004 




96 


003642 


005301 




97 


003644 


112703 


000001 


98 


003650 


000463 




99 


003652 


120027 


000051 


100 


003656 


001003 




101 


003660 


1 1 2703 


000003 


102 


003664 


000455 




103 








104 


003v666 


120027 


000101 


105 


003672 


001013 




106 


003674 


122127 


000116 


107 


003700 


001016 




108 


003702 


122127 


000104 


109 


003706 


001013 




110 


003710 


112703 


000006 


HI 


003714 


105267 


0000000 


112 


003720 


000437 




113 


003722 


1 20027 


000117 


114 


003/26 


001014 
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BIS 

MOV 
2*: CMP 

BEQ 

SUB 

BNE 2* 

XXX 27 
; Convert operator to 
1*: ASR R3 

MOVE CMPCOD 



R3, RO 

#NUMCO, R3 

RO, CMFDPS-2(R3> 

I'fi 

#2, R3 



; GET 2# NUMBER OF OPERATORS 
i LOOK VP OPERATOR NAME 
; BR IF FOUND 
i CHECK NEXT 



; INVALID COMPARISON OPERATOR 
2--bit type code. 

} CONVERT TO BYTE TABLE INDEX 
1(R3), S*BR<R2) i SET COMPARISON CODE 



i Get operand which follows comparison operator. 



>*: 



SLOPND: MOVE 
CMPB 
BLO 
CMPB 
BLE 
i Operand mus 
; Get it and 
CALL 
BISB 
BR 
Operand mus 
Get it and 
CALL 
MOV 
CMPB 
BEQ 
XXX 



1$: 



<R1>+, RO 

RO, #'A 

2^^ 

RO, #'2 

1* 

t be a literal. 

store in comparison 
SLLIT i 

#SF$LIT, S*FLG<R2) 
SLOPR i 

t be another field 

store info in selec 
ACRFLD i 

FLDPOS, S*PDS2(R2) 
FLDTYP, S*TVP(R2)i 
SLOPR i 

28 i 



GET 1ST LETTER OF OPERAND 
SEE IF IT IS A LETTER 
BR IF NOT 

BR IF LETTER 

block. 
ACCRUE LITERAL VALUE 
iSAY OPERAND 2 IS A LITERAL 
GO CHECK NEXT OPERATOR 
descr i ptor. 
t control block. 
ACCRUE FIELD DESCRIPTOR 
; STORE FIELD POSITION 
COMPARE FIELD DATA TYPES 
BR IF THEY MATCH 
FIELD TYPES DON'T MATCH 



We have finished building a 
See what foil owe. 



SLOPR : 


MOVE 


(R1)+,R0 




BEQ 


1* 




CMPB 


RO, #'/ 




BNE 


2* 


1*: 


DEC 


Rl 




MOVE 


#OP«EOE, R3 




BR 


SLOPX 


2*: 


CMPB 


RO, #'> 




BNE 


3* 




MOVE 


#OP$RPN, R3 




BR 


SLOPX 


i Chec 


k for 


"AND" and "OR 


3$: 


CMPB 


RO, #'A 




BNE 


4* 




CMPB 


(Rl)+, #'N 




BNE 


9-* 




CMPB 


<R1 )+, #'D 




BNE 


9* 




MOVB 


#OP^AND, R3 




INCB 


ANDFLG 




BR 


SLOPX 


4$; 


CMPB 


RO, #'0 




BNE 


5* 



comparison control block. 



GET NEXT CHARACTER 
BR IF HIT END OF COMMAND LINE 
START OF NEXT SWITCH? 
BR IF NOT 

POINT BACK TO DELIMITER 
SE1 END-OF-EXPRESSION OPERATOR 
FORCE EXPRESSION EVALUATION 
RIGHT PAREN? 
BR IF NOT 

SET RIGHT PAREN OPERATOR CODE 
EVALUEATE EXPRESSION 
cal operators. 
START OF "AND"? 
BR IF NOT 
CHECK REST OF SPELLING 



SET AND OPERATOR 

REMEMBER WE'VE HAD AN AND OPERATOR 

EVALUATE EXPRESSION 

START OF "OR"? 

BR IF NOT 



I 



SORT I 


SO;rf JN.TTIAI. .TZATION MACRO 


PARSE SWITvH-S 






115 


003730 


122127 


000122 


116 


003-34 


001404 




117 


003-36 






118 


003746 


1 1 2703 


000005 


119 


003752 


105267 


0000000 


120 


003/56 


000420 




121 








122 


003760 


120027 


000054 


123 


003764 


001364 




124 








125 








126 


003766 


126227 


000004 0000O3 


127 


003774 


001405 




128 


003776 


012703 


000010 


129 


004002 


105267 


0000000 


130 


004006 


000404 




131 


004010 


012703 


OOOOll 


132 


004014 


105267 


OOOOOOG 


133 








134 








135 








136 








137 








138 


004020 


120377 


003540 ' 


1 39 


004024 


101046 




140 








141 


004026 


1 1 7704 


003540 ' 


142 


004032 


005267 


003540 ' 


143 


004036 


120427 


000004 


144 


004<.'42 


001011 




145 


004044 


120327 


000003 


146 


004050 


001404 




147 


004052 






148 


004062 


000167 


177542 


149 


004066 


120427 


000002 


150 


00 •1072 


001002 




151 


004074 


000167 


000366 


152 


004 1 00 


120427 


000003 


153 


004 t 04 


00 1 762 




154 








155 


004 106 


162767 


000014 000000 


156 


004 1 1 4 


016762 


0000000 OOOOOO 


157 


004 1 22 


016702 


OOOOOOG 


158 


004 1 26 


005062 


OOOOOO 


159 








160 


004132 


1 1 6462 


000022' 000002 


161 








162 








163 


004! 40 


000727 




164 








165 








166 








167 








1 68 


004142 


005367 


003540 ' 


169 


004 1 46 


110377 


003540 ' 


170 








17.1 
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9*; 
6*: 



5$: 



CMPB 
BEQ 
XXX 
MOVB 
INCB 
BR 
Chpcfc for 
CMPB 
BNE 



(Rn+. #'R 
6* 
29 

#OP$OR, R3 
ORFLG 
SLOPX 
comma a& Fi£>ld 
RO, #', 
9* 



Patje 19-2 



CHECK REST OF SPELLING 

INVALID SELECT SYNTAX 
GET OR OPERATION CODE 
REMEMBER WE'VE HAD AN 



OR OPERATOR 



separator. 

; IS COMMA THE FIELD SEPARATOR 

i INVALID SYNTAX IF ANYTHING ELSE 



Comma is the operator. 

Translate that into special AND or OR operation. 



7*: 



CMPB S*BR ( R2 ) > #BT*NE 

BEQ 7* 

MOV #OP$COR> R3 

INCB ORFLG 

BR SLOPX 

MOV #OP*CND> R3 

INCB ANDFLG 



IS COMPARISON OPERATION "NE"? 

BR IF YES 

SET COMMA-OR OPERATOR 

REMEMBER WE'VE HAD AN OR OPERATION 

SET OPERATOR TO "AND" 

REMEMBER WE'VE HAD AN AND OPERATION 



New operator code is in R3. 

Compare new operator to operator on top of operator stack to 

determine which operator should be applied first. 



SLOPX: CMPB 

BHI 
; Operator on 

MOVB 

INC 

CMPB 

BNE 

CMPB 

BEQ 

XXX 

JMP 

CMPB 

BNE 

JMP 

CMPB 

BEQ 
Build an ope 

SUB 

MOV 

MOV 

CLR 
Translate OP 

MOVB 
Finished wit 
See if uie sh 

BR 



9* 

2* 
1* 



3*: 



R3, ©OPRSTK 

SLPSOP 
top of stacfe is t 

©OPRSTK, R4 

OPRSTK 

R4, #OP*LPN 

1* 

R3, #OP*RPN 

2* 

29 

SLOPR 

R4, #OP*BOE 

3* 

NXTSW 

R4, #OP*RPN 

9* 
rator control bio 

#S«*SZ, TOPMEM 

TOPMEM, S$LINK(R2 

TOPMEM, R2 

S*LINK(R2> 
S X .T< .X codes to SO* 

0PTRNS(R4), S$OPR 
b this operator, 
ould process more 

SLOPX 



; WHICH OPERATOR HAS HIGHER PRECEDENCE? 
; BR IF NEW OPERATOR IS TO BE DONE FIRST 
o be processed next. 

GET OPERATOR 

POP STACK 

LEFT PAREN OPERATOR?' 

BR IF NOT 

IS NEW OPERATOR RIGHT PAREN? 

OK IF YES 

INVALID SYNTAX IF NOT 

GO GE1 NEXT OPERATOR 

REACHED BEGINNING OF EXPRESSION OPERATOR? 

BR IF NOT 

WE ARE FINISHED IF YES 

RIGHT PAREN OPERATOR? 

BR IF YES 

k. 

RESERVE ROOM FOR BLOCK 
)i CHAIN PREVIOUS BLOCK TO US 
; GET ADDRESS OF NEW BLOCK TO R2 
; CLEARE OUR FORWARD LINK 
XXX codes. 
<R2)iSET TRANSLATED CODE 



now. 



i 

i 
I 

< 

< 

I 
4 
€ 
I 

i 
i 
i 



It is not time to generate a block for current operator so 
push it on top of operator stack. 



SLPSOP: DEC 
MOVB 



OPROTK 

R3, eOPRSTK 



.: MAKE ROOM ON STACK 

; PUT OPERATOR ON STACK 



If this operator represents a comma separating operands. 



SORT I 



SDR I J MI T I At I Z AT I ON 
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PARSE SWIT 



172 










> generate a 


comparison block to 


173 










i in list. 




174 














175 


004152 


1 20327 


000010 




CMPB 


R3, #OP*COR 5 


176 


004156 


001405 






BEQ 


1* / 


177 


004 1 60 


120327 


00001 1 




CMPB 


R3, #OP*CND ; 


178 


004164 


001402 






BEQ 


1 vg i 


179 


004166 


000167 


177102 




JMP 


SLCSPC i 


180 










; Bui Id comp, 


arJBOn control block 


181 


004172 


162767 


000014 


OOOOOOG 


1$: SUB 


#S$$SZ, TDPMEM 


182 


004200 


016762 


OOOOOOG 


000000 


MOV 


TOPMEM, S*LINK<R2) 


183 


004206 


016702 


OOOOOOG 




MOV 


TOPMEM, R2 ; 


184 


004212 


00S062 


000000 




CLR 


S*LINK(R2) i 


185 


004216 


016703 


003476 ' 




MOV 


CURSEL, R3 i 


186 


004222 


016362 


000006 


000006 


MOV 


S*P0S1<R3)» S$P0S1 


187 


004200 


016362 


000010 


000010 


MOV 


S*SIZ1<R3)'S*SIZ1 


180 


004236 


1 1 6362 


000003 


000003 


MOVB 


S*TYP(R3),S*TYP(R 


189 


004244 


1 1 6362 


000002 


000002 


MOVB 


S*0PR<R3), S*OPR<R 


190 


004252 


116362 


000004 


000004 


MOVB 


S*BR(R3),S*BR(R2) 


191 


004260 


105062 


000005 




CLRB 


S*FLG<R2) 


192 


004264 


000167 


177254 




JMP 


SLOPND i 



COMMA "OR? 

BR IF YES 

COMMA-AND? 

BR IF YES 

GO GET NEXT OPERAND 

for nf?xt operand in list. 
RESERVE ROOM FOR NEXT BLOCK 
; CHAIN LAST BLOCK FORWARD TO NEW BLOCK 
GET ADDRESS OF NEW BLOCK TO R2 
CLEARE OUR FORWARD LINK 
GEl ADDRESS OF LAST COMPARISON BLOCK 
<R2) iCOPY INFO FROM LAST BLOCK 
<R2) 
2) 
2) 



GO GET NEXT OPERAND IN LIST 



i 
< 
I 
< 

I 
i 
I 
4 
< 

i 

€ 

( 

4 

i 

i 

i 

< 

i 
i 
I 
I 

I 



SORT! 


Snur iMTIALXIATJDN 


PARSE SWlT(;i;.^3 
1 






2 
3 
4 


00 '1270 


004767 


007 1 1 2 


5 


004274 


004/67 


006612 


6 


004200 


010567 


ooooooe 


7 


004304 


122127 


000072 





004;? 10 


001404 




9 


004212 






10 


004322 


016702 


ooooooe 


l.t 


004326 


162702 


000006 


12 
13 
14 


004332 


010267 


ooooooe 


004336 


004767 


006550 


15 


004342 


005305 




16 


004344 


002405 




17 


0O4346 


010562 


000000 


18 


004352 


122127 


000056 


19 


004256 


001404 




20 


00436O 






21 


004370 


004767 


006516 


22 


004274 


005305 




23 


004376 


002770 




24 


004400 


010562 


000002 


25 


004404 


122127 


000056 


26 


004410 


001363 




27 


004412 


004767 


006474 


28 


004416 


010562 


000004 


29 


004422 


122127 


000072 


30 


004426 


001003 




31 


004430 


162702 


000006 


32 


004434 


000740 




33 








34 


004436 


005301 




35 


004440 


010267 


ooooooe 


36 


004444 


010267 


ooooooe 


37 


004450 


000167 


000012 


38 








39 








40 








41 








42 








43 


004454 


052767 


ooooooe 


44 


004463 


000167 


000000 


45 








46 








47 








48 








49 








50 


004466 


1 1 21 00 




51 


004470 


001411 




52 


004472 


120027 


000057 


53 


004476 


001404 




54 


004500 






55 


004510 


000167 


175002 
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/MAP: size: b. cI. 1: f>. d. 1 



1*: 



4$: 



SWMAP: CALL 
CALL 
MOV 
CMPB 
BEQ 
XXX 
MOV 
SUB 
MOV 
PaTse next 
CALL 
DEC 
BLT 
MOV 
CMPB 
BEQ 
XXX 
CALL 
DEC 
BLT 
MOV 
CMPB 
BNE 
CALL 
MOV 
CMPB 
BNE 
SUB 
BR 
Hit end of 
DEC 
MOV 
MOV 
JMP 
IF DP RTll 



9$: 

2*: 



5$: 



CKCOL 

ACRDEC 

R5, RECLEN 

(Rl)+> #': 

1* 

31 

TOPMEM, R2 

#M$ieSZ, R2 

R2, FLDMAP 
fit? Id descriptor. 

ACRDEC 

R5 

9* 

R5, M*P0S1 (R2) 

(Rl )+, #'. 

2* 

32 

ACRDEC 

R5 

9* 

R5, M^P0S2(R2) 

(Rl)+, #'. 

94; 

ACRDEC 

R5, M*SI2E<R2) 

<R1 )+, #': 

5* 

#M««SZ, R2 

4* 
/MAP switch speci 

Rl 

R2, MAPEND 

R2, TOPMEM 

NX1SW 



— specify field mapping 

; CHPCK FOR COLON 

i OET OUTPUT RECORD SIZE 

i SAVE OUTPUT RECORD SIZE 

iSIZE SHOULD BE FOLLOWED BY COLON 

i BR IF OK 

i INVALID RECORD SIZE SPEC WITH /MAP 

i GET ADDR OF FREE MEMORY AREA 

i RESERVE ROOM FOR 1ST MAP BLOCK 

i REMEMBER ADDR OF 1ST BLOCK 

ACCRUE START INC COLUMN NUMBER 
CONVERT TO BYTE NUMBER 
BR IF INVALID 
SAVE POS OF SOURCE FIELD 
PERIOD SHOULD BE DELIMITER 
BR IF OK 

INVALID /MAP FIELD SPECIFICATION 
ACCRUE DESTINATION FIELD COLUMN NUMBER 
CONVERT TO BYTE NUMBER 
BR IF INVALID 

SAVE DESTINATION FIELD POSITION 
PERIOD SHOULD BE DELIMITER 
BR IF ERROR 

ACCURE LENGTH SPECIFICATION 
SAVE FIELD LENGTH 
IS THERE ANOTHER FIELD SPEC? 
BR IF NOT 

MAKE ROOM FOR ANOTHER MAP BLOCK 
GO ACCRUE NEXT FIELD DESCRIPTOR 
fi cat ion 

POINT BACK TO DELIMITER 
SAVE ADDRESS OF LAST MAP BLOCK 
SAVE NEW TOP -OF-MEMORY ADDRESS 
GO GET NEXT SWITCH 



/CR 



. ENDC 



Append cr-lf to end of records. 



BIS 
JMP 



#F*CR. SFLAGS 
NXTSW 



; REMEMBER FLAC OCCURED 
; PROCESS NEXT SWITCH 



MOVE ON TO NEXT SW.rrC!i 



NXTSW: 



1$: 



MOVE 


(Rl)+. RO 


BEQ 


ENDSW 


CMPB 


RO, #'/ 


BEQ 


m 


XXX 


19 


JMP 


GETSW 



GET SWITCH DELIMITER 

BR IF HIT END OF SWITCHES 

START OF NEW SWITCH? 

BR IF YES 

GO PROCESS NEXT SWITCH 



SORT I 
PARSE 



SOrM INITIALIZATION 
SWlTCivaS 



1 



3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

45 
46 

47 

48 
47 
50 
51 
52 

54 



57 



004 514 
001520 
004522 
004530 
004532 
004542 
004546 
004550 
004552 
004560 
004562 
004 570 
004574 
004 576 



004600 
004604 
004606 
004612 
004616 
004620 
004622 
004626 
004630 
004634 



004646 
004650 
004654 
004660 

004660 
004664 
004666 
004672 
004676 
004700 

004704 
004/10 
004712 
004/16 
004720 
004724 
004726 
004732 
004736 
004740 
004744 
004746 
004 752 



005767 
001010 



116701 
001771 
005002 
026227 
001003 
012762 
062702 
020201 
103765 



016702 
001002 
012702 
016703 
001010 
010203 
032702 
001404 
042703 
052703 

032767 
001404 
052702 
052703 



032702 
00 1 002 
052702 
032703 
001002 
052703 

032702 
001010 
032702 
001403 
032702 
001002 
052702 
032703 
001010 
032703 
001403 
032"/03 
0O1002 
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GOT ALL SWITCHES. CHrCK THEM. 



OOOOOOG ENDSW: 

032767 OOOOOOe OOOOOOG 
001004 



ooooooe 



2*: 

3*: 



OOOOOOG 000006 5$: 

000006 OOOOOOG 
000002 4*. 



TST 


INRLEN 


DID WE GET RECORD LENGTH7' 


BNE 


3* 


BR IF YES 


BIT 


#RT*OX, ITYPE 


IS THIS AN ISAM FILE? 


BNE 


3* 


DON'T HAVE TO SPECIFY RECORD LENOTH 


XXX 


22 




MOVB 


NUMKY2, Rl 


GET # OF KEYS SPECIFIED 


BEQ 


2* 


ERROR IF NONE 


CLR 


R2 




CMP 


KTYPE<R2>,#FT*T 


DATE TYPE KEY? 


BNE 


4* 


BR IF NOT 


MOV 


#6. ,KLEN<R2) 


SET DATE KEY LENGTH TO 6 CHARSS 


ADD 


#2, R2 


CHECK NEXT KEY 


CMP 


R2, Rl 


CHECKED ALL? 


BLO 


5* 


BR IF NOT 



FOR ISAM FIL 



Check input and output file types.. 



OOOOOOG 

OOOOOOC 

OOOOOOG 1$: 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 2« 

OOOOOOG 
OOOOOOG 



CKFTYP: MOV 
BNE 
MOV 
MOV 
BNE 
MOV 
BIT 
BEQ 
BIC 
BIS 
Check o b 
BIT 
BEQ 
BIS 
BIS 



ITYPE, R2 i GET INPUT FILE TYPE FLAGS 
1* ;BR IF TYPE SPECIFIED 

#RT*DBL<-RT*0R+RT*RB,R2 i DEFAULT TO DIBOL, RELATIVE, 



BINARY 



OTYPE, R3 
2* 

R2, R3 
#RT$OX, R2 
2* 

#RTf OX, R3 
#RT$OS, R3 
solete /BIN and /SIZE 
#F*VLEN, SFLAGS 
3* 

#RT«VLN, R2 
#RT$VLN, R3 



GET OUTPUT FILE TYPE FLAGS 

BR IF SOME SPECIFIED 

DEFAULT TO SAME TYPE AS INPUT 

IS INPUT FILE ORG = INDEXED? 

BR IF NOT 

DO NOT DEFAULT OUTPUT ORG 10 INDEXED 

DEFAULT OUTPUT ORG TO SEQUENTIAL 

V switch settings. 

VARIABLE LENGTH? 

BR IF NOT 

SAY BOTH INPUT & OUTPUT TYPES ARE VAR LEN 



OOOOOOG 

OOOOOOG 
OOOOOOC 

OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOC 

OOOOOOG 

OOOOOOG 



3*: 

> 

4$: 

5«: 

6*: 



See 



7%. 



Determine 
BIT 
BNE 
BIS 
BIT 
BNE 
BIS 
i f we 
BIT 
BNE 
BIT 
BEQ 
BIT 
BNE 
BIS 
BIT 
BNE 
BIT 
BEQ 
BIT 
BNE 



if input and/oT- output records are to be blank stripped. 
#RT$RB,R2 j INPUT MODE BINARY? 
5* ; BR IF YES 

#RT$VLN, R2 J IS ASCII MODE THEN SET VARIABLE LENGTH FLAG 
#RT«RB+RT1!0R+RT*0X4-RT*X, R3 ; BINARY, RELATIVE, ISAM OR "X" TYPE? 
6* .= IF ANY OF ABOVE THEN FIXED LENGTH OUTPUT 

#RT«VLN, R3 ■> ALLOW VARIABLE LENGTH OUTPUT RECORDS 

need to manage CR-LF record terminator characters. 



#RT*RB+RT*X, R2 

7% 

#RT«FTN, R2 

a* 

#RT'4iDR, WS 

7% 

#RTifCR,R2 

#RT$RB+RT*X, R3 

9* 

#RT$FTN, R3 

1 O* 

#RTSOR, R3 

9* 



INPUT BINARY OR FIXED -LENGTH? 

BR IF EITHER 

INPUT FROM FORTRAN FILE? 

BR IF NOT 

FORTRAN RELATIVE FILE? 

NO CR-LF ON FORTRAN RELATIVE FILES 

CR-LF IS RECORD TERMINATOR 

OUTPUT FILE BINARY OR FIXED-LENGTH? 

BR IF EITHER 

OUTPUT TO FORTRAN DATA FILE? 

BR IF NOT 

FORTRAN RELATIVE FILE? 

BR IF YES <N0 CR-LF) 



I 
f 
I 
< 

< 
i 
4 
I 
« 

€ 

4 
4 
C 

4 

( 
4 

4 
4 



SORTl SOR 
PARSE SWl ! C 



Ifv;.CTIAI..IZATION 
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58 
59 



00475^ 
004760 



60 004764 



052703 
010267 
010C367 



OOOOOOG 
0000000 
OOOOOOG 



1 OU : 
9$: 



BIS 
MOV 
MOV 



#RT*CR. R3 
R2, I TYPE 
R3, OTYPE 



i ADD CR-LF TO RECORD END 

i E^'AVE INPUT FILE TYPE FLAGS 

i SAVE OUTPUT FILE TYPE FLAGS 



SORT I 



SDin i>:ITIAL12AT10M 



In it i a 1 i z f^ 



3 



•jit 



4 



4 



5 


004:' 70 




c 


6 
7 
8 


004772 


004767 


002144 








9 








10 








11 


004776 






12 


005114 






13 








14 








15 








16 


005232 


012702 


000006G 


17 


005236 






IS 


005522 


005722 




19 


005324 


010267 


OOOOOOG 


20 








3i 








P.S 








23 


005330 


005767 


OOOOOOG 


24 


005234 


001003 




25 


005036 


016767 


0000000 OOOOOOG 


26 


005344 


016701 


OOOOOOG c 


27 


005350 


005201 




23 


005352 


042701 


000001 


29 


00-:'356 


010167 


OOOOOOG 


30 








33 








32 








33 








34 


005362 


032767 


OOOOOOG OOOOOOG 


35 


o;>::'370 


001430 




36 








37 








38 








39 








40 








41 


005372 


016704 


OOOOOOG 


42 


005376 


016705 


OOOOOOG 


43 


005402 


016700 


OOOOOOG 


44 


005406 


004/67 


OOOOOOG 


45 


005412 


012700 


000014 


46 


005416 


004767 


OOOOOOG 


47 


005^22 


012700 


012000 


48 


005426 


004767 


OOOOOOG 


49 


005432 


010402 




50 


005434 


062702 


000036 


51 


005440 


005505 




52 


005442 


001433 




53 


005444 


012702 


177777 


54 


005450 


000430 




55 








56 








?r? 
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. SBTTL Jnitialiie files 

Do File initialization 

SETFIL: «LOCK i L-OCK USR IN MEMORY F-OR SPEED 

CALL INiriL i DO FILE INITIALIZATION 

Note: At thiK point R4 contains the sum of the input file sizes. 

Delete any temp files that were left around from aborted runs. 



*ER ASE #FD 1 , #SPC2 
*ERASE #FD1,#SPC3 



i TEMP FILE 1 
i TEMP FILE 2 



Reopen 1st input file through FDl. 



MOV #FILeS+6, R2 
*REOPEN #FD1, <R2) 
TST (R2)+ 
MOV R2, CURSAV 



POINT TO SPC FOR 1ST INPUT FILE 

REOPEN 1ST INPUT FILE 

POINT TO ENTRY FOR NEXT FILE TO OPEN 

SET CURSAV TO POINT TO SPC FOR NEXT FILE 



Set up record length information. 



TST RECLEN 

BNE 2* 

MOV INRLEN, RECLEN 

'*: MOV RECLEN, Rl 

INC Rl 

BIC #1,R1 

MOV R1,RWDLEN 



WAS MAPPED RECORD LENGTH SPECIFIED? 

BR IF YES 

DEFAULT TO INPUT RECORD LENGTH IF NOT 

GET SORT RECORD LENGTH 

BOUND UP TO WORD BOUNDARY 

SAVE THIS AS SORT RECORD BUFFER SIZE 



Determine how much space to allocate for temp files. 
(Note: R4 now contains sum of # blocks in input files) 



BIT #RT*OX, ITYPE 
BEQ 1 * 



i IS INPUT FILE ORGANIZATION INDEXED? 
i BR IF NOT 



Indexed organization file. 

Use the following formula to determine temp file size: 

Space = 1. 2-«-<#-input-records*output-record-length )/512. +30. 

.; GET # INPUT RECORDS 



GE1 OUTPUT RECORD LENGTH 

MULTIPLY 

NOW MULTIPLY BY 12 <1.2#10) 

DIVIDE BY 512. «10. 



MOV 


NXRECl, R4 


MOV 


MXRFC2, R5 


MOV 


RECLEN, RO 


CALL 


MUl TPY 


MOV 


#12. , RO 


CALL 


MUl TRY 


MOV 


#5120. . RO 


CALL 


DIVIDE 


MOV 


R4, R2 


ADD 


#30. > R2 


ADC 


R5 


BEQ 


OPNTMP 


MOV 


#-l,R2 


BR 


OPNTMP 



GET LOW -ORDER RESULT VALUE 

ADD 30 BLOCKS 

PROROGATE CARRY AND CHECK FOR HI OH -ORDER NON-ZERO 

BR IF NEED LESS THAN 65K BLOCKS 

ASK FOR 65K BLOCKS 



File organization is not Inde.xed. 

Use the following formula to calculate how much temp file space to request: 



SORT 1 BOUl 3 N:CI I Al. 1 2AT I ON 
Initialize f i ? e s 



5S 








59 








60 


0051 ^'2 


005005 




61 


00:}/i54 


012700 


000014 


62 


005460 


004767 


OOOOOOG 


63 


005464 


016700 


OOOOOOG 


64 


005470 


004767 


ooooooe 


65 


005474 


012700 


000012 


66 


005500 


004767 


OOOOOOG 


67 


005504 


016700 


OOOOOOG 


68 


005510 


004767 


OOOOOOG 


69 


005514 


010402 




70 


005516 


062702 


000050 


71 


005522 


005505 




72 


005524 


001402 




73 


005526 


012702 


177777 


74 








75 








76 








77 








78 








79 


005532 


005067 


OOOOOOG 


80 


005536 






81 


005672 


103064 




82 








83 








84 


005674 






85 


006032 


103004 




86 


006034 






87 


006044 


010067 


OOOOOOG 


88 


006050 


001771 




89 


006052 


020002 




90 


006054 


103402 




91 


006056 


000167 


000442 


92 


006062 


160002 




93 








94 








95 








96 


006064 






97 


006220 


103137 




98 


006222 






99 


006260 


103402 




100 


006362 


005700 




101 


006264 


001055 




102 


006366 






103 


006516 


005000 




104 


006520 


010067 


OOOOOOG 


105 


006524 







CLR 


R5 


MOV 


#12. > RO 


CALL 


MULTPY 


MOV 


RECLEN, RO 


CALL 


MULTPY 


MOV 


#10. , RO 


CALL 


DIVIDE 


MOV 


INRLEN, RO 


CALL 


DIVIDE 


MOV 


R4, R2 


ADD 


#40. > R2 


ADC 


R5 


BEQ 


OPNTMP 


MOV 


#-l,R2 
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Space = 1. 2#( input-f i le~si 7e) K-< output~rec~l en/input-rec-1 en >-«-30. 

1*; CLR R5 ; CLEAR HIGH-ORDER WORD 

i MULTIPLY FILE SIZE BY 12. 

i NOW MULTIPLY BY OUTPUT RECORD LENGTH 

i NOW DIVIDE BY 10. 

i NOW DIVIDE BY INPUT RECORD LENGTH 

GET LOW-ORDER PART OF RESULT 

NEED 30 EXTRA BLOCKS 

PROROGATE CARRY & TEST HIGH-ORDER PART 

BR IF AMT NEEDED FITS IN 16-BITS 

ASK FOR LARGEST POSSIBLE SPACE 

Open temp files. 

At this point* R2 contains total # blocks me want for temp file space. 

Try to get entire temp file space in temp file # 1. 

OPNTMP: CLR T2SIZ J SAY 2ND TEMP FILE IS NOT USED YET 

*NEW #FD2, #SPC2. R2 i CREATE 1ST TEMP FILE 
BCC 5* ; BRANCH IF OPEN WAS OK 

i Error occured on the open attempt. 
i Try to open to largest available space. 

«FD2, #SPC2> #-1 

BR IF OPEN SUCCESSFUL 
COULD NOT OPEN FILE 
SAVE SIZE OF TEMP FILE 1 
ERROR IF NO SPACE IN FILE 1 
DID WE GET ENOUGH SPACE? 
BR IF NOT 

BR IF GOT ENOUGH SPACE 
FIND OUT HOW MUCH WE LACK 





*NEW 


«FD2, #SPC2> #-1 




BCC 


5* i 


9*: 


XXX 


9 


5*: 


MOV 


RO, TISIZ 




BEQ 


9* i 


TRYT2: 


CMP 


RO, R2 i 




BLO 


2* i 




JMP 


6* ; 


2«: 


SUB 


RO.. R2 i 



REQUEST REMAINING SPACE NEEDED FOR TEMP FILE # 2 



1$: 

7*. 
6*: 



*NEW 

BCC 

*NEW 

BCS 

TST 

BNE 

*PURGE 

CLR 

MOV 

^UNLOCK 



#FD4, #SPC3, R2 

7U 

#FD4, #SPC3, «~-l 

1* 

RO 

7« 

#FD4 

RO 

RO, T2SIZ 



TRY TO GET NEEDED SPACE 

BR IF GOT IT 

GE1 LARGEST AVAILABLE SPACE 

BR IF COULDN'T GET ANY 

DID WE REALLY GET SOME SPACE? 

BR IF YES 

RELEASE 2ND TEMP FILE 

SAY ITS SIZE IS ZERO 

SAVE SIZE OF TEMP FILE 2 

UNLOCK USR 



c 

f 
« 
I 
I 
I 

4 
< 
I 
C 
I 
( 
4 
€ 

i 
< 

I 
< 
I 
t 
I 
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Generate ct'si';' to do key coniparisons 
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i 



4 
5 
6 
7 
8 
9 
10 
13 
12 
1 3 
14 
IJ? 
16 
17 
18 
19 
20 
21 
22 
21^ 
24 
25 
26 
27 
2B 
29 
30 
31 
32 
33 
34 
3S 
36 
37 
33 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006526 
006530 
006534 
006540 
006544 
006550 
006554 
006556 



006562 
006566 
006570 
006574 
006600 

006606 
006612 
006616 
006622 

006626 
006630 
006634 
006640 
006644 
006650 

006652 
006654 
006660 
006664 
006666 
006672 



006700 
006704 
006706 
006712 

006716 
006722 
006726 
0067 30 

006734 
006736 



005002 
016701 
016203 
166301 
062702 
120267 
1 03767 
162701 



010167 
005721 
004767 
010167 
012767 

012721 
012721 
012721 
012721 

005002 
016203 
004773 
062702 
120267 
103011 

010103 
166703 
020327 
101761 
004767 
000756 



005767 
001423 
016704 
1 66704 
042704 
010467 
005744 
010467 

005724 
1 1 6703 



SBTTL. Generate code to do key compari&ons 



GENERATE CODE TO DO KEY COMPARISONS 

1S7 STEAL ENOUGH CORE FROM TOP OF MEM FOR COMPARE ROUTINE. 



OOCOOOG 
OOOOOOG 
003566 ' 
000002 
OOOOOOG 

000036 



OOCOOOG 

002634 
OOOOOOG 
000001 003512 

010137 
OOOOOOG 
010237 
OOOOOOG 



OOOOOOG 
003610' 
000002 
OOOOOOG 



CODGEN: CLR R2 

MOV TOPMEM, Rl 

1*: MOV KTYPE(R2),R3 

SUB C0DSIZ(R3)>R1 

ADD #2, R2 

CMPB R2, NUMKY2 

BLO 1* 

SUB #30. , Rl 

STORE CODE FOR WINNER ROUTINE 



003510' 
000346 

002536 



006674 012721 000207 



MOV 
TST 
CALL 
MOV 
MOV 
GENERATE C 
MOV 
MOV 
MOV 
MOV 
i NOW GENERA 
4$: CLR 
3*: MOV 
CALL 
ADD 
CMPB 
BHIS 
i SEE IF WE 
MOV 
SUB 
CMP 
BLOS 
CALL 
BR 
GENERATE C 
2$: MOV 



Rl, TOPMEM 
<R1) + 
GENWIN 
R 1 , COMPAR 
#1, RSTAT 
ODE TO SAVE INITIAL 
#010137, <R1)+ 
#REC 1 , ( R 1 ) »■ 
#010237, (Rl ) + 
#REC2, (Rl) + 
COMPARE CODE FOR 
R2 

KTYPE<R2), R3 
@GENVEC<R3) 
#2, R2 



TE 



'* 



FAR 



HAVE GOTTEN TOO 

Rl, R3 

RETLOC, R3 

R3, #230. 

3* 

GENWIN 

3* 
RTS PC 3 FOR EQUAL 

#207, (Rl)f- 



INDEX TO 1ST KEY 

POINT TO CURRENT TOP OF MEMORY 

GET TYPE OF NEXT KEY 

LEAVE ROOM FOR GENERATED CODE 

GO CHECK NEXT KEY 

DONE ALL? 

BR IF NOT 

LEAVE ROOM FOR EXTRA CODE 



SAVE NEW POINTER TO TOP OF MEMORY 

POINT TO START OF CODE AREA 

GENERATE WINNER CODE 

START OF COMPARISON CODE 

REGS R1&R2 ARE LOADED FOR ASCENDING 

RECORD POINTERS 

CMOV Rl, €#REC13 

C RFC 13 

CMOV R2, e#REC23 

CREC2J 

EACH KEY. 

INIT KEY INDEX 

GET KEY TYPE 

GENERATE CODE FOR THIS TYPE OF KEY 

MOVE ON TO NEXT KEY 

DONE ALL? 

BR IF FINISHED 

FOR A BR INSTRUCTION TO WORK 

FIND DISTANCE FROM RETURN CODE 

GOTTEN TOO FAR? 

BR IF OK 

GENERATE NEW WINNER ROUTINES 



KEYS 



KEY COMPARISONS 
; CRTS PC3 



SEE IF WE NEED TO RESERVE ROOM FOR AN EOF RECORD. 



OOOOOOG 

OOOOOOG 
OOOOOOG 
000001 
OOOOOOG 

OOOOOOG 



OOOOOOG 



SEOFR : 



TST 
BEQ 
MOV 
SUB 
BIC 
MOV 
TST 
MOV 
INITIALIZE 
TST 
MOVB 



EOFCOL 
SETBLK 
TOPMEM, R4 
RECLEN, R4 
#1, R4 
R4, EOFBUF 
-(R4) 

R4, TOPMEM 
EOF RECORD TO 
< R4 ) +• 
EDFCHR, R3 



IS EOF RECORD EXPECTED? 

BR IF NOT 

GET CURRENT TOP OF MEMROY 

RESERVE ROOM FOR EOF RECORD 

MAKE SURE EVEN WORD 

PLACE EOF RECORD HERE 



ALL EOF CHARS 



i 

I 

I 
I 

< 

f 
c 
i 

c 

i 

€ 

i 
i 
I 
I 
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QcneiBte code to do key comparisons 



Pane i.'.3-X 



58 


OO*;-/^'!? 


016702 


ooooooe 


59 


OOn/46 


1 1 0324 




60 


006V->0 


00t>302 




61 


00;''75P 


001375 





1$: 



MOV 


RECLEN, R2 


MOVE 


R3, (R/n-i- 


DEC 


R2 


BNE 


1* 



; LENGTH OF RECORD 

i FORM DUMMY EOF RECORD 



SORT I S'lRT JNITIALIZATION 
Determine b'.irt-er si^es 



i 
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SBITL 



Determine buffer sizes 



4 
t 



3 
4 










DETERMINE 


BUFFER SI7FS 


6 


0067 54 


016704 


0000000 


SE7BLK: 


MOV 




BLKFC, R4 


7 


006^60 


001037 








BNE 




8$ 


a 


006762 


016703 


OOOOOOG 






MOV 




TOP MEM, R3 


9 


006!' 66 


012702 


OOOOOOQ 






MOV 




#P2T0P, R2 


10 


006772 


022702 


OOOOOOG 






CMP 




#P1T0P, R2 


11 


006-76 


101402 








BLOS 




9* 


12 


007 VOO 


012702 


OOOOOOG 






MOV 




tPlTOP, R2 


13 


00/004 






9*: 










14 


007004 


160203 








SUB 




R2, R3 


IS 








i 


MAKE SURE 


WF 


HAVE MIN SIZE 


16 


007006 


020327 


005000 






CMP 




R3> #<5<-BUFSIZ> 


17 


007'! 12 


1 03004 








BHIS 




10* 


IS 


007014 










XXX 




24 


19 








> 


SET 


BLOCKING 


FACTOR SO THAT 


20 








i 


5 BUFFERS. 






21 


007024 


012702 


012000 


10*: 


MOV 




#<2-«J5«-BUFSIZ>, 


22 


007030 


012704 


OOCOOl 






MOV 




#1, R4 


23 


00 7034 


020203 




7$: 




CMP 




R2, R3 


24 


007036 


101006 








BHI 




61; 


25 


007040 


062702 


005000 






ADD 




#<5*BUFSIZ>, R2 


26 


007044 


005204 








INC 




R4 


27 


007046 


020427 


000005 






CMP 




R4, #5 


28 


007052 


103770 








BLO 




7* 


29 








i 


NOW 


GET BUFFER S.TZE. 


30 


007054 


010467 


OOOOOOG 


6*: 




MOV 




R4, BLKFC 


31 


007060 


005001 




8«: 




CLR 




Rl 


32 


007062 


062701 


001000 


1«: 




ADD 




#BUFSIZ,R1 


33 


007066 


005304 








DEC 




R4 


34 


007070 


001374 








BNE 




1* 


35 


007072 


010167 


OOOOOOG 






MOV 




R1,0BUFSZ 


36 


007076 


006201 








ASR 




Rl 


37 
38 
39 


007100 


010167 


OOOOOOG 






MOV 




R 1 , DWCNT 










ENTER PHASE 


1 OF SORT 


40 


















41 


007104 


012767 


OOOOOOG OOOOOOG 






MOV 




#P2T0P; LOWMEM 


42 


0071 J 2 










*GETBOT 


R2, #P1 TOP 


43 


007132 


010267 


OOOOOOG 






MOV 




R2, LOWMEM 


44 


007136 


000167 


OOOOOOG 






JMP 




STARTl 



GET FILE BLOCKING FACTOR 

BR IF USER SPECIFIED A VALUE 

TOP OF FREE MEMORY 

R2 -> TOP OF PASS 2 

IS TOP OF PASS 1 HIGHER ?? 

BRANCH IF NOT 

USE HIGHER OF THE TWO 

GET SPACE AVAILABLE TO PASS 2 

GOT ENOUGH FOR SORT? 

BR IF YES 

NOT ENOUGH MEMORY 



THIS SIZE OK 

BR IF TOO BIG 

INCREASE BLOCKING FACTOR 

; GO TO MAX BLOCKING FACTOR OF 5 



.; SAVE BLOCKING FACTOR 
; CALCULATE BUFFER SIZE 



; SAVE BUFFER SIZE 

i SAVE WORD SIZE OF BUFFER 



€ 
4 

i 
i 



ASSUME TOP OF PASS 2 IS LOWEST 
SEE IF WE CAN HAVE TOP OF PASS 1 
LOWMEM = P2T0P OR PI TOP 



SORT I S'jUI I NI T 1 Ai I Z at I on 
Determine bufher sixes 
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1 
2 
3 
4 

<'5i 

7 

G 

9 
10 
11 
1? 
13 
14 
15 
16 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

35 00 

36 00 
37 
38 
39 

40 00 

41 00 

42 00 

43 00 

44 00 

45 00 

46 00 

47 00 
43 00 
49 00 
50 

51 
52 
53 

54 007 312 

55 00> 

56 oo: 

57 00"; 



007142 
007144 
007146 
007150 



007 1 52 
007 1 56 
007162 
007 1 66 
007172 
007176 



007202 
007 204 
007222 
007224 
7 234 
7236 



7242 
7246 

I 2 v."'6 



/'266 
7272 
/276 
7302 
■; 306 



*16 
>7320 
17326 



010146 
010246 
010346 
010546 



016702 
004767 
010267 
016702 
004767 
010267 



010605 

103004 

010506 
004767 



012701 
012731 
012731 
012731 
012731 
012731 
012731 
012731 
012731 
012731 



005777 
001013 
032767 
001404 



0000000 
004244 
000064 ' 
OOOOOOG 
004230 
000066 ' 



001536 



OOOOOOG 
OOOOOOG 
000012G 
000024G 
O0CO36G 
00004 6G 
0000 56G 
000066G 
000076G 
00C106G 



IF DF RTll 

. SBTTL Bet up information about file specs 

INIFIL is called to process the file name portion of the conwnand line. 
It parses the file specs and creates file blocks containing RadSO 
file names J sizes* etc. 

Inputs: 
FILBUF = Asciz CSI file spec (i.e. * out, temp = inl, in2, . . . ) 

Outputs: 
FILES = Vector of pointers to file specs, (last pointer is zero). 
R4 = Sum of input file sizes. 



INIFIL: MOV 


Rl, -(SP) 


MOV 


R2, - ( SP ) 


MOV 


R3. - ( SP ) 


MOV 


R5, "(SP) 


i Determine 


proper default 


i 

MOV 


ITYPE, R2 


CALL 


OETDFX 


MOV 


R2, DEFEX'I 


MOV 


OTYPE, R2 


CALL 


GETDFX 



MOV 



R2, DEFEXT-^2 



file extensions. 

; GET INPUT FILE TYPE FLAGS 

;GET DEFAULT INPUT FILE EXTENSION 

; SET DEFAULT INPUT FILE EXTENSION 

; GET OUTPUT FILE TYPE FLAGS 

; GE1 DEFAULT EXTENSION 

; SET DEFAULT OUTPUT FILE EXTENSION 



Use . CSISPC to parse command line. 



2«: 



MOV SP, R5 i PRESERVE STACK POINTER 

.CSISPC #RSPCS, #DEFEXT, #FILBUF ; PARSE COMMAND LINE 

BCC 2* i BR IF NO ERROR 

XXX 19 i INVALID COMMAND LINE 

MOV R5, SP > RESET STACK POINTER 



\^ rnL—L.. 



5VRSTS 



; SAVE (POSSIBLY) ANY RSTS INFORMATION 



Set addresses in FILES vector to point to file specifications. 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



#FILES, Rl 

#RSPCS, @(R 

#RSPCS+10. 

«RSPCS+20. 

#RSPCS+30. 

#RSPCS+3S. 

#RSPCS<-46. 

#RSPCS+54. 



@(Rl)+i2ND 
e(Rl)+i 1ST 
@(R1)+;2ND 
©CR1)+;3RD 
€'(Rl)+i4TH 
#RSPCS+62. , @(R1)+; 5TH 
#RSPCS+70. , @(R1 ) +i 6TH 



POINT TO FIRST CELL 

OUTPUT FILE 
@(R1)+;1ST TEMP FILE 
1EMP FILE 
INPUT FILE 
INPUT FILE 
INPUT FILE 
INPUT FILE 
INPUT FILE 
INPUT FILE 



IN POINTER VECTOR 



See if this is an in-place sort. 

Specified by omitting the output file spec. 



OOOOOOG 
OOOOOOG OOOOOOG 



TST (^SPCl 

BNE 5* 

BIT #RT*OX, I TYPE 

BEQ 9* 



; OUTPUT FILE SPECIFIED? 

i BR IF YES 

i IS INPUT FILE ORGANIZATION INDEXED? 

; BR IF NOT 
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Set up inf-ormation about file specs 
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58 


00V33O 










59 


007340 


052767 


OOOOOOG 


OOOOOOG 


9*: 


60 












61 












62 












63 


00/346 


016702 


OOOOOOG 




5$: 


64 


00 > 352 


005712 








65 


007354 


001002 








66 


00/356 


016712 


000034 ' 






67 


007062 


016703 


ooooooe 




8$; 


68 


00:-366 


005713 








69 


0O"=370 


001001 








70 


007372 


011213 








71 


007374 


016762 


000036 ' 


000002 


1$: 


7P 


00/402 


016762 


000040 ' 


000004 




73 


007410 


016763 


000036 ' 


000002 




74 
75 


0074 1 6 


016763 


000042 ' 


000004 




76 
77 












78 












79 












80 












81 












82 


007424 


105767 


OOOOOOG 






03 


007430 


001404 








84 


007432 


113700 


000404 






85 


007136 


006200 








86 


007440 


000403 








87 


007442 


1 1 6700 


OOOOOOG 




6$: 


88 


007446 


001407 








89 


007450 


066700 


000044 ' 




7$: 


90 


0074 54 


010062 


000006 






91 


007460 


010063 


000006 






92 


007464 


000406 








93 










i 


94 


007466 


016762 


000046 ' 


000006 


3«: 


95 


007474 


016763 


000046 ' 


000006 




96 












97 












98 












99 


007502 


016705 


OOOOOOG 




4$: 


100 


007506 


012702 


OOOOOOG 






101 


007512 


013201 






lO'S 


102 


007514 


004767 


003574 






103 


007520 


020227 


000022G 






104 


007524 


103772 








105 


007526 


005745 








106 


007 530 


010567 


OOOOOOG 






107 












1 08 












109 












110 












111 


00/ 534 


032767 


OOOOOOG 


OOOOOOG 




112 


007542 


001402 








1 1 3 


00754'! 


004767 


000252 






114 










> 



XXX 37 J ERROR — INPLACE SORT NOT LEGAL WITH INDEXED FILE 

BIS #F$INPL, SFLAGS ; REMEMBER THIS IS AN IN~PLACE SORT 



Set up temp filf- names. 



MOV 
TST 
BNE 
MOV 
MOV 
TST 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 



SPC2, iV2 

(R2) 

8-;6 

R50DK, (R2) 

SPC3, R3 

(R3) 

1* 

(R2), <R3) 

R50TN0, 2(R2.) 

R50TN1/ 4<R2> 

R50TN0, 2(R3) 

R50TN2, 4(R3) 



GET ADDRESS OF TEMP FILE BLOCK 

DID USER SPECIFY THE TEMP FILE DEVICE? 

BR IF YES 

DEFAULT TO DK: 

POINT 70 2ND TEMP FILE SPEC AREA 

WAS DEVICE SPECIFIED FOR 2ND TEMP FILE? 

BR IF YES 

USE SAME DEVICE AS FOR 1ST TEMP FILE 

SET DEFAULT TEMP FILE NAME 

i SET NAME FOR 2ND TEMP FILE 



If running under TSX, generate extension of the form XXz where "z" 
is a function of the line number. 

If running under RS7S> generate extension of the form XXz where "z' 
if a function of the job number. 

RUNNING UNDER RSTS? 
BR IF NOT 

GET RSTS JOB # TIMES 2 
TIMES 1 



GET TSX LINE NUMBER 

BR IF RUNNING DIRECTLY UNDER RTl 1 

FORM EXTENSION NAME 

SET AS EXTENSION OF TEMP FILE 1 

AND TEMP FILE 2 

• — Use "TMP" as temp file extension 
iSET TMP AS TEMP FILE EXTENSIONS 



TSTB 


Rsrs 


BEQ 


6* 


MOVE 


e#RSTSJB, RO 


ASR 


RO 


BR 


7* 


MOVE 


7SXFL. RO 


BEQ 


3* 


ADD 


R50XX. RO 


MOV 


RO, 6(R2) 


MOV 


RO, 6<R3) 


BR 


4* 



Running directly under RT-11 
MOV R50TMP,6<R2) 
MOV R50TMP,6(R3) 

Load device handlers. 

GE1 ADDRESS OF TOP OF FREE MEMORY 
POINT TO FILE DESCRIPTOR POINTER VECTOR 
GET ADDRESS OF RT-11 FILE SPEC 
LOAD DEVICE HANDLER 
HAVE WE DONE ALL? 
BR IF NOT 

SAVE NEW TOP OF MEMORY ADDRESS 

If this is a COBOL-Plus Indexed organization file, read in home block 
and set up information about data files. 



MOV 


TOPMEM, R5 


MOV 


#FILES, R2 


MOV 


€<R2)+, Rl 


CALL 


LOAD IT 


CMP 


R2> #FILESt-22 


BLO 


10? 


TST 


-(R5) 


MOV 


R5, TOPMEM 



BIT #RT$OX, I TYPE 
BEQ 0PNDA7 
CALL INIX 



IS 7HIS A COBOL ISAM FILE? 

BR IF NOT 

DO INITIALIZATION FOR ISAM FILE 



SORT I 
Set up 

116 
117 

lis 

119 
120 
131 
122 
123 
124 
13b 
136 
137 
128 
129 
130 
131 
132 
133 
134 
135 
136 
1 37 
138 
139 



SOU 1 1 N 1 T I Al. . I Z AT 1 ON 
in f'orfi!.:;ti on cibout fi le 
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specs 



Paqe 25- 



Oppn each fiie^ Add up number of blocks and do . SAVESTATUS 



00/ei54 
00V't;i6O 
007r'62 
00/564 
007566 
007570 
007572 
007714 
007716 
007726 
007750 
007732 
010002 
010006 



010010 
010012 
0i0:)14 
010-16 

010020 



000006G 
OOOOOOG 



012702 
012705 
00f7004 
01 1201 
001511 
00iJ731 
001507 

10v3004 

060004 
010532 



062705 000012 
000665 



012605 
012603 
012602 
012601 
000207 



OPNDAT: 


MOV 


#FILES+6, R2 




MOV 


#SAVB UF. R5 




CLR 


R4 


3$: 


MOV 


€'R2, Rl 




BEQ 


1* 




TST 


© < R 1 ) + 




BEQ 


1* 




*OLD 


#FD1, <R2) 




BCC 


2* 




XXX 


B 


2*: 


ADD 


RO, R4 




MOV 


R5, e<R2) + 




*SAVEST 


*IFD1 




ADD 


#12i R5 




BR 


3* 


} Finished: R 


pturn arc umu 


i 

1*: 


MOV 


<SP)+, R5 




MOV 


( SP > +, R3 




MOV 


( SP ) +, R2 




MOV 


(BP)+, Rl 




RETURN 





POINT TO SPEC FOR 1ST INPUT FILE 

DO SAVESTATUS INTO THIS AREA 

ACCUMULATE FILE SIZES IN R4 

GET POINTER TO SPC FOR FILE 

BR IF REACHED END 

IS FILE SPEC NON-ZERO? 

IF ZERO THEN FILE WAS NOT SPECIFIED 

TRY TO OPEN INPUT FILE 

BR IF OPEN WAS SUCCESSFUL 

CANNOT OPEN INPUT FILE 

ACCUMULATE FILE SIZES 

MAKE SPC POINT TO SAVESTATUS AREA 

SAVE FILE STATUS 

INCREMENT TO THE NEXT SAVESTATUS AREA 

GO OPEN REST OF INPUT FILES 



sted file size in R4. 



i 

i 
€ 

I 

€ 
I 

4 

i 

€ 
€ 

f 
€ 

i 

€ 
4 

I 
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Set ifp in /•orjuati on shout file specs 



J 



v'> 








7 








8 








9 








.to 








l.t 








12 








13 


010022 


010146 




14 


010024 


010246 




IS 


010026 


010346 




16 


010030 


010446 




17 


010032 


010546 




18 








19 








20 








21 


010034 


005777 


0000000 


23 


010040 


001404 




23 


010042 






24 








?f> 








26 








27 


010052 






28 


010176 


103004 




29 


010200 






30 


010210 






31 


010370 


103447 




32 


010372 






33 


010506 


103004 




34 


J 00 10 






35 


010520 






36 








37 








38 








39 








40 








41 


010566 


012701 


002432 ' 


42 


01057'2 


016102 


000032 


43 


010576 


016103 


000034 


44 


0106f'2 


020367 


0000000 


4S 


010606 


103404 




46 


0i06J0 


101007 




47 


010612 


020267 


0000000 


48 


1 06 1 6 


1 03004 




49 


010620 


010267 


00 00000 


50 
51 


010624 


010367 


OOOOOOG 


53 
54 


010630 


01 6 t 03 


000004 


55 


010634 


010367 


OOOOOOG 


56 


010640 


116100 


000001 


57 


010644 


006300 





INIX is called to do initialization for COBOL-Plus Indexed organization 
files. It reads the file home block and sets up the RAD50 file specs 
for the data files in the RSPCS area. 

Inputs: 
TDPMEM = Top of free memory address. 

Outputs: 
TDPMEM = Set to new top of free memory address. 
MXREC1-MXRE02 ~ Ma:< # of records to sort. 



INJX: 



MOV 


Rl, 


-<3P) 


MOV 


R2, 


- < 3P } 


MOV 


R3, 


• < 3P > 


MOV 


R4, 


-<3P) 


MOV 


R5, 


- ( 8P ) 



i Make sure he only specified one input file. 



TST 
BEQ 
XXX 



@SPC5 

10* 

38 



i IS THERE A SECOND INPUT FILE? 

i BR IF NOT 

; ERROR IF YES 



Open ISAM index file and read in home block. 
10*: 



1*: 



2$: 
3$: 



«OLD #FD1,#SPC4 i OPEN FIRST INPUT FILE 

BCC 1* ; BR IF OPEN OK 

XXX 8 ; CAN'T OPEN INPUT PILE 

«READ #FD1, #GENBUF>#256. , #0 ^ READ HOME BLOCK 

BCS 2* ; BR IF READ ERROR 

*WAIT #FD1 iWAlT FOR READ TO FINISH 

BCC 3* ; BR IF READ OK 

XXX 14 iREAD ERROR 

*KEEP «FD1 ; CLOSE INDEX FILE 



Extract information from home block. 



Set number of records in file. 



4*: 



MOV 


#GENBUF, R 1 


MOV 


HB«RIU<R1)>R2 


MOV 


HB$RIU+2(R1),R3 


CMP 


R3, MXREC2 


BLO 


4* 


BHI 


5* 


CMP 


R2, MXRECl 


BHIS 


5* 


MOV 


R2, MXREOl 


MOV 


R3, MXRFC2 



.! POINT TO HOME BLOCK BUFFER 

i GET LOW -ORDER NUMBER OF RECORDS IN FILE 

; GET HIGH-ORDER NUMBER OF RECORDS IN FILE 

; COMPARE HIGH-ORDER WITH PREVIOUSLY SPECIFIED MAX 

; BR IF WE SHOULD USE ISAM # RECORDS 

; BR IF PREVIOUS MAX IS SMALLER 

i COMPARE LOW-ORDER 

. liff IP PREVIOUS VALUE IS ONE TO USE 

; SET # RECORDS TO BE READ 



Set up information about record length. 



>*: MOV HB1;RSZ<R1)>R3 

MOV R3, ISMARS 

MOVB HB$DUP(R1), RO 

ASL RO 



i GET THE LOGICAL RECORD LENGTH < BYTES) 

J THIS IS FULL RECORD LENGTH LESS LEADING CONTROL WORD 

J GET # OF KEYS THAT ALLOW DUPLICATES 

i4 BYTES FOR EACH ACCESSION « FOR THESE KEYS 



c 

i 

i 
I 
€ 

i 

€ 
€ 

I 
4 
I 
4 

4 

4 
4 



SORT] BO'a ThilTTAl. JZATIGM 

Eiet up inf-or.fri.;:iii on about file 



58 


OIOi-46 


006300 




59 


01C65O 


160003 




60 

61 
62 


010652 


010367 


OOOOOOG 








63 








64 


010656 


016104 


000002 


65 


010662 


016103 


000030 


66 


0106<S6 


060103 




67 


010670 


016705 


OOOOOOG 


68 


010674 


012701 


000036G 


67 


OlO/OO 


011167 


003514' 


70 


010704 


016702 


000062 ' 


7i 


010710 


016300 


000000 


72 


010714 


001003 




73 


010716 


016711 


003514' 


74 


010722 


000403 




75 


010724 


010011 




76 


010/26 


004767 


002362 


77 


010732 


005721 




70 


0107 34 


012700 


000040G 


79 


010740 


012021 




80 


010742 


012021 




ei 


010744 


010221 




82 


010/ 46 


005202 




03 


010750 


062703 


000004 


B4 


01075^ 


005304 




85 


010/56 


001354 




06 


010760 


010567 


OOOOOOG 


87 








80 








89 








90 


010. -64 


012605 




91 


010/66 


012604 




92 


010.-70 


012603 




93 


010772 


012602 




94 


010774 


012601 




95 


010776 


000207 





MACRO V05. Olfc. Monday 06 May-aS 16: 56 
spec & 



ASL RO 

SUB RO, R3 

MOV R3, INRLEN 



Paqe 26-1 



GET LFNGTH OF ACTUAL DATA PORTION OF RECORD 
THIS IS THE LOGICAL RECORD LENGTH 



Set up names of data files and load device handlers. 



MOV 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 

6-$: MOV 
BNE 
MOV 
BR 

7^: MOV 
CALL 

3*: TST 
MOV 
MOV 
MOV 
MOV 
INC 
ADD 
DEC 
BNE 
MOV 

I Finished 

i 

MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



HB*DFS<R1}> R4 

HB*DIP(R1 )> R3 

Rl, R3 

TOPMEM, R5 

#RSPCS+30. >R1 

(Rl>, INXDEV 

R50CD0> R2 

HD$DEV(R3)» RO 

7* 

INXDEV, <R1) 

8* 

RO, <R1 ) 

LOADn 

<R1 ) + 

#RSPCS H32. > RO 

<R0)+, (Rl) f- 

<R0}+, <R1 ) I- 

R2, (Rl) + 

R2 

#HDt.*SZ, R3 

R4 

6* 

R5, TOP MEM 



(SP) ^, R5 
(SP>+, R4 
(SP)+, R3 
(SP>+, R2 
(SP)+, Rl 



GE7 # DATA FILES 

OFFSET WITHIN HOME BLOCK OF DATA FILE INFO 

GET ADDRESS OF DATA FILE INFO BLOCKS 

GET ADDRESS OF TOP OF FREE MEMORY 

POINT TO 1ST INPUT FILE SPEC 

SAVE NAME OF DEVICE WITH INDEX FILE # 

GET EXTENSION FOR 1ST DATA FILE (CDO) 

GET NAME OF DEVICE WITH DATA FILE- 

BR IF EXPLICIT DEVICE SPECIFIED FOR FILE 

DEFAULT TO SAME DEVICE AS INDEX FILE 

i SET DEVICE FOR DATA FILE 

i LOAD DEVICE HANDLER 

; POINT TO FILE NAME AREA 

; POINT TO ORIGINAL FILE NAME 

; COPY FILE NAME TO DATA FILE SPEC 

SET FILE EXTENSION 

INCREMENT EXTENSION 

POINT TO NEXT DATA FILE INFO BLOCK 

ARE THERE MORE DATA FILES? 

BR IF YES 

SAVE NEW TOP OF MEMORY ADDRESS 



SORTI SOHl INITIAL 1 2ATIDN 
RSTB oTieJitift tiubroufcines 



.! 
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SBTTL NS'iG oriented subroutines 



6 








7 








8 








9 








10 








IJ 








1^' 








13 








14 








lb 








16 








17 








IB 








19 








20 








Pi 








22 








23 








2^ 








2b 








26 








27 








20 








29 








30 








31 








32 








33 








34 








35 








36 








37 








38 


011000 


105767 


OOOOOOG 


39 


01JC04 


001436 




40 


011006 


010046 




41 


01 1010 


010146 




42 


01 J. 01 2 


010246 




43 


011014 


010346 




44 


011016 


010446 




45 








46 


011020 


013700 


000054 


47 


01102'! 


062700 


000400 


4S 


011030 


012704 


OOOOOOG 


49 


011034 


012702 


00001 1 


50 








51 


011040 


012401 




52 


011042 


062701 


000002 


53 


01.1046 


010003 




54 


011050 


012321 




55 


011052 


012321 




56 


011054 


012321 




57 


011056 


012321 





SVRSTS 



SVRSTS: 



5*: 



Save the RS7S oriented file parameters after a 
decode. 



CSISPC file 



When running under the R7 1 1 run-time 
system^ tht-re are a number of RSTS o 
that can be- present in a file specif 
meaning fo^' RTll. These include the 
<PPN)> Protection Code/ Mode, and CI 
(and not documented outside of DEC)» 
these parameters in a job'£> "Read/Wr 
decode is performed. This read/writ 
data area that the RTll run-time mai 
is created in the high part of the u 
the running job, is about 3600 bytes 
and is at all times pointed at by th 
(location 54). The beginning of the 
CSPSDF bytes into the R/W stack with 
occupying 20 bytes. 



of the RSTS operating 
riented file parameters 
ication uhich have no 

Project-Programmer Number 
ustersize. Fortunately 

the RTll run— time saves 
ite Stack" after a .CSISPC 
e stack is the job-dependent 
ntains for each job. It 
ser memory allocated to 

long (for RSTS V06C ) , 
e low core RMON word 

saved parameters is 

each channel 's information 



Also present in the R/W stack are four "one shot" cells 
which are active for one file oriented operation (.LOOKUPj 
.ENTER, etc. ). These four words are for the PPN, protection 
code, mode> and clustersize, respectively, and reside at 
the immediate beginning of the R/W stack. Since the second 
through fifth words of the saved .CSISPC parameters (see 
above) are also these four items, these items can be saved 
off after a .CSISPC call and then loaded into the one-shot 
area immediately preceeding a file operation. 

This routine does the saving of the RSTS-oriented paramters, 
while the SETNRT routine processes the loading of the one- 
shots. 



TSTB 

BEQ 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 
ADD 
MOV 
MOV 

MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 



RSTS 

10* 

RO, -(SP) 

- ( SP ) 

( HP ) 

( SP ) 

< GP ) 



j We running under RSTS? 

j -"> no 

i Get some work registers 



R 1 , 
R2, 
R3, 

R4, 



©#RMON, RO 
#CSPC0F+2, RO 
#F1L.ES, R4 
#9. , R2 

(R4)+, Rl 
#2, Rl 
RO, R3 

(R3)+, (Rl ) + 
(R3)-i-, (Rl) ^ 
(R3)+, (Rl )-^• 
(R3)+, (Rl) «- 



iPoint to the initial block 

.: Point to vector of file descriptor addresses 
; And set a counter 

; Get address of ne.xt file descriptor block 

i Point to area where we save RSTS data 

; Get a move from pointer 

; Save PPN 

• Protection code 

; Mode 

■> and Clu&tersize 



i 
i 
< 

< 
I 

4 

i 

4 
( 
4 
i 
C 
4 
4 
4 
4 
4 
4 
I 



JORTJ 



Suva INITIALIZATION 
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RSTS orient.': d f>ubrou tines 



58 


011060 


062700 000020 


59 


011C64 


005302 


60 


0U066 


00 1 364 


61 






62 


011070 


012604 


63 


01107i? 


012603 


64 


011074 


012602 


65 


0J1l'76 


012601 


66 


Oil KH) 


012600 


67 






60 


OHIO? 


000207 


69 









ADD 


«20, RO 




DEC 


R2 




BNE 


5* 




MOV 


< B." ) I-, R4 




MOV 


<SP)+, R3 




MOV 


< &V ) +. R2 




MOV 


<SF)+, RJ 




MOV 


<SP)+, RO 


0*: 


RETURN 




ENDC 


>RT-11 





iSkip to the next block 
; And continue until done 
; Loop for all files 



; Restore the work registers 



i Return to the caller 



i 
I 
i 
( 
I 

€ 

€ 

€ 

€ 

4 

I 
4 
4 
I 



SORT I SnRT INITIAi I2ATIDM 
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i 
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i6:b6 Paue r'S 



SBTTL CODE^ GENERATOR SUBROUTINES 











6 


011104 


016203 


OOOOOOG 


7 


011110 


020327 


000002 


S 


Oil t 14 


101003 




9 


01 ma 


103420 




10 


011120 


000167 


000062 


ii 








12. 


011124 


004767 


000424 


13 


011130 


012721 


012703 


14 


011134 


01 032 J 




15 


011136 


012721 


122122 


16 


011142 


004767 


000446 


17 


011146 


012721 


005303 


18 


Olllbl' 


012/21 


001374 


19 


011156 


000207 




20 








21 








22 








23 








24 


011160 


004/67 


000262 


25 


011164 


012721 


126162 


26 


011170 


016203 


OOOOOOG 


27 


011174 


010321 




2B 


011176 


010321 




29 


011200 


004767 


000410 


30 


01120^ 


000207 




31 








32 








33 








34 








35 


011206 


004767 


000234 


36 


011212 


012721 


126162 


37 


011216 


016203 


OOOOOOG 


38 


011222 


010321 




39 


011224 


010321 




40 


011226 


004767 


000362 


41 


011232 


012721 


126162 


42 


011236 


0052O3 




43 


011240 


010321 




44 


011242 


010321 




45 


011244 


004767 


000344 


46 


011250 


000207 




47 








48 








49 








50 








51 


011252 


004767 


000170 


52 


011256 


012721 


026162 


53 


011262 


016203 


0000000 


54 


on 266 


010321 




55 


011270 


010321 




56 


011272 


004767 


000316 


57 


01 1276 


052767 


OOOOOOG OOOOOOG 



ASCII KEY 



GNASCI: 



MOV 
CMP 
BHI 
BLO 
JMP 



KLENiRP). R3 

R3, #2 

2* 

ONEASC 

TWOASC 



GET KEY LENGTH 

SEE IF SHORT KEY 

BR IF LONG 

BR IF SINGLE ASCII CHARACTER 

BR IF 2-CHAR KEY 



GENERATE CODE FOR GENERAL ASCII STRING COMPARISON 



?*: 



4$: 



CALL 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

RETURN 



GENKPT 

#012703, (Rl ) + 
R3, (Rl ) + 
#122122, (Rl) + 
GENBRU 
#5303> <R1) + 
#1374, <R1>+ 



GEN CODE TO GET KEY POINTERS 

CMOV #LEN, R33 

t#LEN3 

CCMPB (Rl )+, <R2)+jt 

GEN TBNE RETURN] 

TDEC R33 

rBNE . -S. 3 



GENERATE CODE f~OR SINGLE ASCII CHARACTER 



ONFASC: 



CALL 

MOV 

MOV 

MOV 

MOV 

CALL 

RETURN 



GENRPT 

#126162, <R1)+ 
KSTRT(R2), R3 
R3, (Ri)t- 
R3, <R1} + 
GENBRU 



GET RECORD POINTERS 

CCMPB POS(Rl),POS<R2)3 

GET POS+1 

CP0S3 

EPOS] 

GEN BNE 



GEN CODE FOR TWO CHARACTER ASCII KEYS 



TWOASC: CALL 


GENRPT 


GET RECORD POINTERS 


MOV 


#126162, <R1 >+ 


CCMPB P0S<R1),P0S<R2)3 


MOV 


KSTRT<R2),R3 


GET COLUMN # 


MOV 


R3, (Rl) + 


CP0S3 


MOV 


R3, (Rl ) + 


CP0S3 


CALL 


GENBRU 


GEN CBNE RETURN3 


MOV 


#126162, <R1 )+• 


CCMPB POS+1(R1),POS+1<R2)3 


INC 


R3 


GET POS+1 


MOV 


R3, <R1) !- 


CPOS+13 


MOV 


R3, <R1 ) *• 


CPOSf-13 


CALL 


GENBRU 


GEN CBNE RETURN 3 


RETURN 






^ 




— 


i GENERATE CODE FOR UNSIGNED 16 


■BIT BINARY INTEGER. 


GNUS I: CALL 


GENRPT 


GET RECORD POINTERS 


MOV 


#026162, <R1 )+ 


CCMP POS(Rl),POS(R2)3 


MOV 


KSTRT<R2),R3 


GET STARTING COL # 


MOV 


R3, (Rl) + 


CP0S3 


MOV 


R3, (Rl) + 


CP0S3 


CALL 


GENBRi; 


GEN CBNE RE TURN 3 


BIS 


#F*BIN, SFLAGS 


REMEMBER THIS IS A BINARY 



RECORD 



i 

f 

« 
f 

f 
c 
< 

< 

€ 
i 

i 
i 
i 
i 
4 
4 



30RTJ SfiiRT JWniAl 3ZATJDN 

CODE GENL:RA1t« SUBRDUTINhS 
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58 

60 
61 

62 



6S 
66 
67 
68 
69 
70 
71 
72 
73 
74 
7& 
76 

/ / 

78 

79 

80 

81 

82 

S3 

84 

35 

86 

87 

SB 

89 

90 

91 

92 

93 

94 

9t? 

96 

97 

98 

99 

100 

101 

1 02 

1 03 

104 

105 

106 

107 

108 

109 

1 1 

111 

112 

113 

114 



011304 000207 



RETURN 



Comp item stored with least significant word first. 



011306 
011312 
011320 



011322 
011326 



011330 
011334 



011536 
0(1342 



011344 
011350 
011356 



011360 
i 1 364 



01 J 366 

011372 



012704 OOOOOOG 
052767 OOOOOOe 
000-125 



012704 OOOOOOG 
000422 



012704 OOOOOOG 
000417 



012704 OOOOOOG 
000414 



012704 OOOOOOG 
052767 OOOOOOG 
000406 



012704 OOOOOOG 
000^103 



012/04 OOOOOOG 
000400 



GNCMP : MOV 
OOOOOOG BIS 

BR 



#KYCOMP, R4 
#F*BIN, Sf-LAGS 
QHCAll 



i COMPARISON ROUTINE 

i REMEMBER RECORD HAS COMP FIELD 



leading sepaiatc- sign. 



GNLSS: 



MOV 
BR 



#KYLSS, RA 
GNCALJ. 



COMPARISON ROUTINE 



Trailing separate sign. 



GNTSS: MOV 
BR 



tiKYTSS, R4 
GNCALl 



; COMPARISON ROUTINE 



Date fields in the form (mmddyy). 



GNDATE: MOV 
BR 



#KYDATE. R4 
GNCAl.L 



; COMPARISON ROUTINE 



Binary values stored with the most significant word first. 



GNBIN: MOV 
OOOOOOG BIS 

BR 



#KYBIN, R4 i COMPARISON ROUTINE 

#F$B IN, Sf-LAGS i REMEMBER BINARY FIELD IN RECORD 

GNCALL 



Signed numeric display (trailing non-separate sign). 



GNDIS: MOV 
BR 



#KYDIS, R4 
GNCALL 



; COMPARISON ROUTINE 



Ascii characters with lower case translated to upper case. 



GNUCA: 



MOV 
BR 



#KYUCA, R4 
ONCAJa 



; COMP AR 1 SON ROUT I NE 



01.1374 
01.1400 
011404 
011110 
01 1414 
011116 
1 .1 '1 r'2 
011126 



004767 
012721 
016221 
012721 
010421 
004767 
105067 
000207 



000154 
012703 
OOOOOOG 
00^7737 

000172 
003512' 



Gen code to call a subroutine (whose address is in R4) to do a key 

comparison. 

On entry to the subroutine the following registers will be set up: 

Rl = Address of- key field 1. 

R2 = Address of key field 2. 

R3 = # of bytes in key fields. 

QEH CODE TO LOAD Rl & R2 WITH KEY POINTERS 

LMOV # bytes, R3J 

C# bytesJ 

[CALL g'#routine3 

L R o u t i n e 3 

IBNE return] 

REGIS7ERS ARE MESSED UP 



PNC ALL: 


CALL 


GENKPT 




MOV 


#012703, (Rl) + 




MOV 


KLEN<R2)> <R1)+ 




MOV 


#4737, (Rl ) + 




MOV 


R4, (R1)^ 




CALL 


(r^^ENBRU 




CLRB 


RSTAT 




RETURN 





SORT I Bo:a 

CODE GENHnAli 



} NIT I AL. 12 AT J ON 
iR SUBROUTINES 
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56 Paye- riO 



< 



ii5 
J. .t ^ 
117 
1 1 8 
J 1 9 
1 ?() 
121 
122 

1 23 

1 24 
125 
126 
127 
128 
1 29 
130 
131 
132 

1 33 

1 34 
135 
136 
137 

1 38 

1 39 
140 
141 
142 
143 
1 44 
145 
146 
147 
148 
149 
1 50 
151 
152 
153 
154 
1 55 
156 
157 
158 
159 
160 
161 
1 62 
163 
164 
165 
166 
167 
1 68 
169 
1 70 
171 



GEN CODE TO SIGNAL. mUCH RECORD WAS TI^E WINNER. 



Oi. i -l-'iO 
011434 
Oil '140 
Oil 44 'I 



011446 
011452 

011454 
i 1 46P 
011464 
011472 
01 1476 
011502 
011506 
011512 



011514 
011522 
011524 
011532 
01 J 536 
011542 
011546 
011552 



Oil 
Oil 
Oil 
Oil 
Oil 
01 f 
Oil 
Oil 
Oil 
Oil 
01 1 



554 
556 
562 
566 
570 
574 
576 
602 
604 
610 
612 



011614 
011616 
01 1622 
011624 



012721 
010167 
012721 
000207 



005762 
001020 

026727 
001413 
012767 
012721 
012721 
012721 
012721 
000207 



026727 
001413 
012767 
012721 
012721 
012721 
012721 
000207 



010546 
004767 
016205 
001406 
012721 
010521 
012721 
010521 
005067 
012605 
000207 



010346 
012721 
010103 
1 66703 



000401 

003510' 

000207 



GENWIN: MOV 
MOV 
MOV 
RETURN 



#401. (Rl )+ 
Rl, RETLOC 
#207, (Rl )-!- 



I:BR . J-23 

SAVE LOCATION OF RTS PC INSTRUCTION 

CRTS PC3 



GEN CODE TO LOAD Rl S< RP WITH POINTERS TO START OF RECORDS 
IF THEY ARE NOT ALREADY LOADED CORRECTLY. 



OOOOOOG 



003512' 000001 

000001 003512 

013701 

OOOOOOG 

013702 

OOOOOOG 



GENRP7: TST KAD<R2) 

BNE 1 ^ 
i GEN OF ASCENDING KEY 



CMP 

BEQ 

MOV 

MOV 

MOV 

MOV 

MOV 

2*: RETURN 
} GEN CODE FOR DESCENDING KEYS 



RSTAT, #1 

2* 

#1, RSTAT 

#013701, <R1)<- 

#REC1, (Rl) ^ 

#013702, (Rl) + 

#REC2, <R1) + 



(REVERSE ORDER OF RECORDS) 



003512' 000002 1^: 

000002 003512' 

013701 

OOOOOOG 

013702 

OOOOOOG 

3*: 



CMP 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



RSTAT, #2 

3« 

#2, RSTAT 

4I013701, <R1) + 

#RrC2, (Rl) + 

#013702, (Rl) + 

#REC1, (Rl)+ 



i NEEDED FOR ASCENDING OR DESCENDING? 
;BR IF DESCENDING 

ARE THEY LOADED CORRECTLY NOW? 

BR IF YES 

SAY THEY ARE LOADED CORRECTLY 

CMOV @#REC1,R13 

CREC13 

CMOV e#REC2, R23 

CREC23 



ARE REGS ALREADY LOADED? 

BR IF YES 

SAY THEY ARE LOADED 

CMOV e#REC2, R13 

CREC23 

CMOV ^#REC1,R23 

C RFC 13 



GEN CODE TO LOAD Rl ?< R2 WITH POINTERS TO START OF KEYS 



GENKPT 



177664 
OOOOOOG 

062701 

062702 

003512' 



9*: 



MOV 

CALL 

MOV 

BE(3 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

RETURN 



R5, -OP) 

GENRPI 

KSTRT(R2), R5 

9^ 

#062701, {Rl> + 

R5, (Rl ) + 

#062702, ( R 1 ) ^- 

R5, (Rl )i- 

RSTAT 

(SP)+, R5 



LOAD Rl S< R2 WITH RECORD POINTERS 

GET STARTING COL # 

BR IF AT FRONT OF RECORD 

CADD #POS, R13 

CPOSD 

CADD #POS, R23 

CPOSJ 

SAY R1-R2 ARE MESSED UP 



Generate code for BNE following a test which leaves 
the condition codeK correctly &et for BGT/BLT/BEQ. 



001000 
003510' 



GENBRU: MOV 
MOV 
MOV 
SUB 



R3, -(SP) 
#001000, (Rl) + 
Rl, R3 
RETLOC, R3 



■> CBNE.1 

J GET OFF- SET FROM RTS PC INSTRUCTION 



t 

( 

( 

i 

i 

i 

i 
i 
4 
4 

4 

I 



SORT! SOin INITIAL IZATIDN 
CODf- 



MACRO V0&. 01b 



QENtR A'HjU 


SUBROUTINES 


172 01 J 630 


005403 


i7::i oiiis:-' 


006203 


174 011634 


042/03 177400 


175 OIK' 40 


050361 177776 


176 011.1^4 


012603 


1 77 i 1 646 


000207 



Monday 


06 


-May -BS 16; 


NEC 




R3 


ASR 




R3 


BIG 




#177400, R3 


BIS 




R3, -2(R1 ) 


MOV 




( SP ) +, R3 


RETURN 





b6 PsuB 28-3 



NEbD NEGATIVL- OF VALUE 
OET WORD OFFSET 
LEAVE ONLY DISPLACEMENT 
STORE DISPLACEMENT INTO 



FIELD 

BNE INSTRUCTION 



SORT I 


Bi)R1 }i' 


ITIAI.IZA 


TJON 


SUBROUTINF < 
1 






J- 
P 
3 








A 








ff 








6 








7 








& 








9 








JO 








11 








1? 








13 








14 


011650 


010546 




15 


011652 


012705 


003542 ' 


16 


011656 


105715 




1? 


011660 


001004 




IS 


011662 






19 


011672 


120025 




20 


011674 


001370 




21 


011676 


116500 


00001 1 


22 
23 
24 


011702 


010067 


003504 ' 


011706 


005067 


003506 ' 


25 


011712 


112100 




26 


011711 


120027 


000101 


27 


011720 


001421 




23 


011722 


1 20027 


000104 


29 


011726 


001003 




30 


011730 


005267 


003506 ' 


31 
32 

33 


011734 


000413 




011736 


120027 


000060 


34 


011742 


103403 




35 


011744 


120027 


000071 


36 


011750 


101404 




37 


011752 






38 


011762 


005301 




39 








40 


011764 


004767 


001122 


41 


011770 


005305 




42 


011772 


O02004 




43 


011774 






44 


O 12004 


010567 


003500 ' 


45 








46 


012010 


122127 


000056 


47 


012014 


001005 




48 


012016 


004767 


001070 


49 


012022 


010567 


003502 ' 


50 


012026 


000403 




51 


012030 


005067 


003502 ' 


52 


012034 


005301 




53 








54 








55 








56 


012036 


016700 


003504 ' 


57 


012042 


020027 


O000O6 
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ACRFLD i5 called to accrue a sort field descriptor of the 
form tas. 1 where 

t = type code (returned as FT$.xxx in FLDTYP) 

a =^ A5cendinq/Descending (FLDORD: 0-==>asc ending* l==>descending ) 

b = starting column number ivaloe-l returned in FLDPOS) 

1 = field lencith (returned in FLDSIZ) 
When called, RO must contain the Ist letter of the field descriptor 
and Rl must point to the 2nd letter. 
On return/ Rl points to the delimiter hit. 



ACRFL 
2*: 

5f : 

i Get 



; If 
4*: 



8*: 
6*: 
i Ac 
7*: 



12*: 
; Ac 



10-15; 



I): MOV 

MOV 

TSTB 

BNE 

XXX 

CMPB 

BNE 

MOVB 

MOV 
second 

CLR 

MOVB 

CMPB 

BEQ 

CMPB 

BNE 

INC 

BR 
A/D was 

CMPB 

BLO 

CMPB 

BLOS 

XXX 

DEC 
crue fiel 

CALL 

DEC 

BGE 

XXX 

MOV 
crue fiel 

CMPB 

BNE 

CALL 

MOV 

BR 

CLR 

DEC 



R5, -<SP) 

#KEYTC, R5 

<R5) 

5* 

3 

RO, <R5)^- 

2* 

KEYCOD-KEYTC 

RO, FLDTYP 
character whic 

FLDORD 

<R1 .>+, RO 

RO, t'A 

7* 

RO, # 'D 

4* 

FLDORD 

7-$ 
left out defau 

RO, #'0 

8* 

RO, *}'9 

6* 

6 

Rl 
d starting 

ACRDEC 

R5 

1 2* 

5 

R5, FLDPOEi 
d length if 

(Rl)+, #'. 

101; 

ACRDEC 
R5, FLDSIZ 
AFCKV 
FLDSIZ 
Rl 



-1(R 
h sp 



POINT TO DATA TYPE LETTER TABLE 

REACHED END OF TABLE? 

BR IF NOT 

INVALIE DATA TYPE LETTER 

LOOK FOR CHAR IN TABLE 

LOOP flLL FOUND 
?),RO,GET FT*xxx TYPE CODE 

SAVE FIELD TYPE CODE 
?cifies Ascending/Descending 

ASEiUME ASCENDING 



ASCENDING? 
BR IF YES 
DESCENDING? 
BR IF NOT 
SET DESCENDING 



ORDER FLAG 



It to A. 

; HIT A 
iBR IF 



DIGIT? 
NOT 



column 



sp 



;HIT START OF COLUMN # FIELD 
i NOT A OR D 

; POINT TO START OF NUMBER 
number. 

; ACCRUE STARTING COLUMN NUMBER 
i CONVERT TO BYTE NUMBER 
; BR IF VALUE VALID 
; INVALID STARTING COLUMN NUMBER 
; SAVE STARTING BYTE NUMBER 
e c i f i e d 

i PERIOD SHOULD BE THE DELIMITER 
iBR IF SIZE NOT SPECIFIED 
i ACCRUE SIZE VALUE 
i SAVE SIZE VALUE 

iSAY SIZE WAS ZERO 

; POINT TO START OF NEXT SWITCH 



Check validity of field spec. 

AFCKV: MOV FLDTYP, RO 
CMP RO, #FT$T 



i GET FIELD DATA TYPE 
; DATE? 



( 
I 
i 
i 
t 
i 



sort;i 



sd;<t :jr< 


ITIAl IZAT.10N: 


MACRO V05. 01b 


Monday 


06 


-h'ay-85 16: 56 Pai 


UTIN'-d 


















5B 0.120-?& 


001004 










BNE 




i$ i 


59 Ol^ObO 


012767 


000006 


003502 ' 






MOV 




#6, FLDSIZ i 


60 Oii>C5A 


000450 










BR 




10* 


61 01P060 


020027 


000002 




1*: 




CMP 




RO, #F1 *B 


62 OiPv'64 


001403 










BEQ 




2* ; 


63 012066 


020027 


O00OO4 








CMP 




RO, #FT*U i 


64 0tPC7? 


001007 










BNE 




3* i 


65 01PC74 


016700 


003502 ' 




2$: 




MOV 




FLDSIZ.RO i 


66 01c' J 00 


001015 










BNE 




4* 


67 OK? 102 


012767 


000002 


003502 ' 






MOV 




#2, FLDSIZ i 


68 OK'llO 


000411 










BR 




4* 


69 01?11? 


020027 


0000 10 




3$: 




CMP 




RO, #FT*F i 


70 0K'il6 


OOlOvlO 










BNE 




10* i 


71 012120 


016700 


003502 ' 








MOV 




FLDSIZ,RO ; 


72 012124 


001003 










BNE 




4* i 


73 012126 


012767 


000004 


003502 ' 






MOV 




#4, FLDS12 i 


74 








* 


Common coc 


e 


for computational 


75 012134 


032700 


000001 




4*: 




BIT 




*li,RO i 


76 012140 


001404 










BEQ 




5* i 


77 012142 








9*: 




XXX 




4 ; 


78 0121 1>2 


020027 


000010 




5«: 




CMP 




RO, #0. i 


79 012156 


101371 










BHI 




9* 


80 012160 


032767 


000001 


003500 ' 






BIT 




#1,FLDP0S ; 


81 012166 


001404 










BEQ 




10* i 


82 012570 












XXX 




5 i 


83 








i 


End 


of accruing field. 


84 012£00 


012605 






10*: 


MOV 




<SP)+>R5 


85 012202 


000207 










RETURN 





9-1 



BR IF NOT 

SAY SIZE IS 6 CHARS. 

B — SIGNED BINARY? 

BR IF YES 

U- -UNSIGNED BINARY? 

BR IF NOT 

GET SPECIFIED SIZE 

BR IF IT WAS SPECIFIED 

DEFAULT TO 2 BYTES 

F — FLOATING? 

BR IF NOT 

GET SPECIFIED SIZE 

BR IF SIZE WAS SPECIFIED 

DEFAULT TO 4 BYTESS 

data types. 

IS SIZE EVEN? 

BR IF YES 

INVALID FIELD LENGTH 

NOT TOO LONG? 

BR IF TOO LONG 

IS BYTE POSITION EVEN? 

BR IF YES 

INVALID STARTING COLUMN 



i 
I 
i 
i 
i 
i 



SORT. I SORT 
SUBROUTINES 



INITIALIZATION 
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1 



3 








4 








b 








6 








7 








B 


012204 


010346 




9 


012206 


010446 




10 


012210 


010546 




IJ 








12 


012212 


016703 


OOOOOOG 


13 


012216 


016204 


000010 


14 


012222 


160403 




15 


012224 


042703 


OOOOOl 


16 


012230 


010362 


000012 


17 


012234 


010367 


OOOOOOG 


18 


012240 


004767 


000626 


19 


012244 


001022 




20 








21 








22 








23 


012246 


112100 




24 


012250 


001410 




25 


012252 


120067 


003526 ' 


26 


012256 


001405 




27 


012260 


005704 




28 


012262 


001771 




29 


012264 


1 1 0023 




30 


012266 


005304 




31 


012270 


000766 




32 








33 








34 


012272 


005704 




35 


012274 


001404 




36 


012276 


112723 


000040 


37 


012302 


005304 




38 


012304 


000772 




39 


012306 


000167 


000550 


40 








41 








42 








43 








44 


012312 


105067 


003527 ' 


45 


012316 


105067 


003530 ' 


46 


012322 


012703 


001770' 


47 


012326 


120027 


000060 


48 


012332 


103017 




49 


012334 


120027 


000055 


50 


012340 


001003 




51 


012342 


105267 


003527 ' 


52 


012346 


000415 




53 


012350 


120027 


000053 


54 


012354 


001412 




55 


012356 


1 20027 


000056 


56 


0;2362 


001011 




57 


012364 


105267 


003530 ' 



SLt IT is called to accrue a literal value which is part of a record 

selection switch. 

When called^ R2 must point to the current select control blocks 

RO must contain the 1st character of the literal and Rl must point 

to the 2nd character of the literal. 



SLLIT: MOV 

MOV 

MOV 
i Reserve room 

MOV 

MOV 

SUB 

BIC 

MOV 

MOV 

CALL 

BNE 



R3. 
R4, 
R5, 
for 



- ( SP ) 
" ( SP ) 

- < SP ) 

1 i teT'al 



TOPMEM, R3 

S*SIZ1<R2)>R4 

R4, R3 

#1, R3 

R3, S*P0S2<R2) 

R3, TOPMEM 

QUOTCK 

SLLNUM 



below current select control block. 
GET FREE MEMORY POINTER 
GET SIZE OF FIELD 
RESERVE ROOM FOR LITERAL 
FORCE ADDRESS EVEN 

SAVE ADDRESS OF START OF LITERAL AREA 
UPDATE FREE MEMORY POINTER 
IS THIS A QUOTED STRING? 
BR IF NOT (MUST BE NUMERIC LITERAL) 



Accrue alphanumeric literal string. 



SLLALP: 



MOVB 

BEQ 

CMPB 

BEQ 

TST 

BEQ 

MOVB 

DEC 

BR 



<R1)+,R0 

3* 

RO, QUOTE 

3* 

R4 

SLLALP 

RO, (R3) + 

R4 

SLLALP 



i Reached end of string. 
i See if uie need to blank 



fill 



3*: 



4«: 



TST 

BEQ 

MOVB 

DEC 

BR 

JMP 



R4 
4* 
#' 
R4 
3* 
SLLEND 



<R3) + 



GET NEXT CHAR FROM STRING 

BR IF HIT END OF COMMAND STRING 

IS THIS CHAR THE CLOSING QUOTE? 

BR IF YES 

HAVE WE MOVED ENOUGH CHARS? 

BR IF YES 

MOVE CHAR TO HOLDING AREA 

COUNT CHARS MOVES 

GO MOVE MORE 

the end. 
DID WE COMPLETELY FILL FIELD? 
BR IF YES 
BLANK FILL REST OF FIELD 



Accrue a numeric literal. 



First move 
SLLNUM: CLRB 
CLRB 
MOV 
6*: CMPB 
BHIS 
CMPB 
BNE 
INCB 
BR 
2*: CMPB 
BEQ 
CMPB 
BNE 
INCB 



characters in literal to temp holding buffer. 



NEGVAL 

DECPT 

#SLBUF, R3 

RO, #'0 

1* 

RO, # ' - 

2t. 

NEGVAL 

3* 

RO, # ' + 

3*5 

RO, # ' . 

4'fi 

DECPT 



ASSUME VALUE IS NOT TO BE NEGATED 

ASSUME VALUE HAS NO DEC PT 

POINT TO TEMP HOLDING BUFFER 

DETERMINE WHAT TYPE OF CHAR THIS IS 

BR IF POSSIBLY DIGIT 

MINUS SIGN? 

BR IF NOT 

REMEMBER TO NEGATE VALUE 

PLUS SIGN? 

IGNORE IF YES 

DEC POINT? 

BR IF NOT 

REMEMBER WE HIT DEC PT 



SORT I BUUl 

SUBROUTIN--.i 



INITIAI 1 2 ATI ON 
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5B 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
7P 
73 
74 
7 J) 



78 
79 
80 
81 

8r? 

83 
84 

8r» 

86 

87 

SS 

39 

90 

91 

92 

93 

94 

9D 

96 
97 

98 
99 
100 
101 
1 02 
103 
104 
lOf' 

1 06 

1 07 
1 08 
109 
110 
111 
1 1 P 
113 
1 1 4 



01P:.<70 
012372 
012376 
012400 
012402 
012404 



012410 
012-112 
012416 
1 2420 



012430 
012432 
01243*1 
012440 
012444 
1 24 50 
012452 
012456 



012460 
012464 
012470 
012476 
012:;>00 

0l2r;02 
012:»04 
01 2; '06 
012510 
012Fi20 
012524 
012326 
012530 
012?.34 
012'';36 
012:'40 
012f'42 



012544 
012f>!:.0 
0i2''54 
01 2; -56 
012':'62 
012;>64 
0J2'^70 



000403 
1 20027 
101003 
1 1 0023 
112100 
000750 

105013 
005301 
105767 
001404 



010146 
010304 
1 62704 
1 1 6200 
020027 
001520 
020027 
001515 



016705 
016201 
122762 
001001 
005301 
160401 
001411 
003004 

1 1 2725 
005301 
003374 
012701 
112100 
001402 
1 1 0025 
000774 



1 1 6200 
020027 
001423 
020027 
001430 
020027 
001437 



00007 1 



1*: 

5*: 
3%: 



4$: 



003530 ' 



BR 

CMPB 
BHI 
MOVB 
MOVB 
BR 
Number is 
CLRB 
DEC 
TSTB 
BEQ 
XXX 



5* 

RO, # '9 

4* 

RO, <R3)-f- 

(Rl )+. RO 

now stored 
(R3) 
Rl 

DECPT 
SLCKMV 
30 



IS CHAR A DIGIT? 

BR IF NOT (HIT END OF LITERAL) 
MOVE CHAR TO HOLDING BUFFER 
GE7 NEXT CHAR FROM LITERAL 

in SLBUF. Put null at end. 

PUT NULL AT END OF STRING 

POINT BACK TO DELIMITER 

DID NUMBER CONTAIN A DECIMAL POINT? 

BR IF NOT 

WE DON'T ALLOW DECIMAL VALUES 



Branch off to appropriate processing routines with R3 pointing 
to null at end of string and R4 containing a count of the number 
of digits in the string. 



001770' 

000003 

000002 

000004 



SLCKNV: 


MOV 


Rl, -<SP) 




MOV 


R3>R4 




SUB 


#SLBUF,R4 




MOVE 


S«TYP<R2),R0 




CMP 


RO. #F1*B 




BEQ 


SLCOMP 




CMP 


RO, #FT«U 




BEQ 


SLCOMP 



NUMERIC LIT 
OF STRING 
IN STRING 



ROUTINES 



Usage is not camp. 

Add enough leading zeroes 



OOOOOOG 

000010 

000020 



000003 



000060 



001770' 



4*: 



>$; 



1*: 
3*: 



MOV 


TOPNEM, R5 


MOV 


S*SI21(R2), Rl 


CMPB 


#FT*J, S*TYP(R2) 


BNE 


4S 


DEC 


Rl 


SUB 


R4, Rl 


BEQ 


lli 


BGT 


2* 


XXX 


30 


MOVB 


#'0, <R5) + 


DEC 


Rl 


BGT 


21i 


MOV 


#Sl.BUF, Rl 


MOVB 


(Rl )+, RO 


BEQ 


5* 


MOVB 


RO, (R5) i- 


BR 


Zili 



MAKE Rl AVAILABLE TO 
GET POINTER PAST END 
GET COUNT OF # CHARS 
GET USAGE TYPE CODE 
COMP? 
BR IF YES 
UNSIGNED BINARY? 
BR IF YES 



to make number fit full field size. 



FINAL VALUE IS TO BE STORED HERE 

GET « BYTES WANTED IN FINAL VALUE 

IS THIS A TRAILING SEPARATE SIGN FIELD? 

BR IF NOT 

LAST CHAR POS IS USED FOR SIGN 

QET # EXTRA ZEROES WE NEED TO ADD 

BR IF EXACT FIT 

BR IF NEED LEADING ZEROES 

VALUE GIVEN IS LARGER THAN FIELD 

INSERT LEADING ZEROES 



POINT TO HOLDING BUFFER WITH VALUF 

GET NEXT DIGIT FROM STRING 

BR IF END HIT 

MOVE IT TO FINAL RESTING PLACE 



Branch off to differrrit routines according to the sign type. 
At this point R5 points past the last digit in the string. 



000003 
000012 

(^00016 

000020 



5*; 



MOVB S«TYP ( R2 ) , RO 

CMP RO, #FT*D 

BEQ SLTWS 

CMP RO, #FT*:i 

BEQ SLI SG 

CMP RO, #F}'SsJ 

BEQ SLI S3 



GET SIGN TYPE CODE 

TRAILING NON-SEPARATE SIGN? 

BR IF YES 

LEADING NDN SEPARATE SIGN? 

BR IF YES 

TRAILING NON-SEPARATE SIGN? 

BR IF YES 



SORT! 


Si>:u J h 


IJIM 1.2A 


1 1 ON 


SUBROUTIN- > 






115 


01 2: '7 2 


020027 


000000 


1 1 v^ 


012:^76 


00 1 4 1 2 




J 17 


0ii'6i)0 


020027 


000014 


118 


012604 


001407 




119 


0126O6 


020027 


000006 


1 20 


OiP-'-iP 


001404 




121 


0/26 {4 






122 








1 23 








12'1 








125 


012624 


105767 


003527 ' 


1 26 


012630 


001513 




127 


012632 


114500 




128 


01 26 3-^1 


062700 


000100 


129 


012640 


110015 




130 


012642 


000506 




131 








132 








133 








134 


012644 


012700 


000053 


135 


012650 


105767 


003527 ' 


136 


0.1 26 5 '1 


O01402 




137 


012656 


012700 


000055 


138 


012662 


1 1 0077 


OOOOOOG 


J 39 


012666 


000474 




140 








1 4 1 








142 








143 


012670 


012700 


000053 


144 


012674 


105767 


003527 ' 


145 


012700 


001402 




146 


012702 


012700 


000055 


147 


012/06 


110015 




148 


012710 


000463 




149 








1 50 








151 








152 


012712 


016201 


OOOOIO 


153 


oipua 


006201 




154 


012720 


016703 


OOOOOOG 


155 


012724 


005023 




156 


012726 


005301 




157 


012730 


003375 




1 58 


012732 


012704 


001770' 


159 








160 


012736 


112400 




161 


012740 


001432 




1 62 


012742 


1 62700 


000O60 


163 


012/46 


016201 


000010 


164 


012752 


006201 




165 


012754 


016703 


OOOOOOG 


166 


012760 


012705 


003442 ' 


167 


012 '64 


005015 




168 


01 2 '-66 


006313 




169 


012 770 


006115 




1 70 


0J2V72 


012515 




171 


012V74 


06 1 300 





MACRO V05. 01b 



Monday 


06 


■Ma It -85 1 


CMP 




RO, #FT*C 


BEQ 




3LTNS 


CMP 




RO, #F r *A 


BEQ 




SL"I N3 


CMP 




RO, #niST 


BEQ 




SL'i iM3 


XXX 




30 



56 Page- 30-2 



CHARACTER? 



CHARAC1ER 

BR IF YES 

UPPER CASE 

BR IF YES 

DATE? 

BR IF YES 

INVALID USAGE TYPf- 



( UNSIGNED NUMERIC DISPLAY)? 



Trailing non- separate sign character 



SL-INB: 


TSTB 


NEGVAL 




BEQ 


St.NEND 




MDVB 


-(R5),R0 




ADD 


#64. , RO 




MDVB 


RO, <R5) 




BR 


Sl.NEWD 



J.G VALUE TO BE NEGATIVE OR POSITIVE? 

BR IF POSITIVE 

GET LAST DIGIT OF VALUE 

MARK AS NEGATIVE 

PUT BACK INTO NUMBER 



Leading separate sign. 



SLLSS: 



1*: 



MOV 


#'+, RO 


TSTB 


NEGVAL 


BEQ 


Mi 


MOV 


#' ", RO 


MOVB 


RO, ©TOPMEM 


BR 


BINFND 



ASSUME POSITIVE VALUE 

NEGATIVE? 

BR IF NOT 

GEf NEGATIVE SIGN CHAR 

STORE AS 1ST CHAR OF NUMBER 



Trailing separate sign. 



SLTSS: 



1*: 



MOV 


#'+, RO 


TSTB 


NEGVAL 


BEQ 


1* 


MOV 


^ ' , RO 


MOVB 


RO, <R5) 


BR 


SLNFND 



ASSUME POSITIVE VALUE 

NEGATIVE? 

BR IF NOT 

GET NEGATIVE SIGN CHAR 

STORE AS LAST DIGIT OF NUMBER 



Convert vaiue to comp. 



SLCOMP: MOV 
ASR 



1$: 



Get 



3*: 



'$: 



MOV 
CLR 
DEC 
BGT 
MOV 
a digit 

Movia 

BEQ 
SUB 
MOV 
ASR 
MOV 
MOV 
CLR 
ASL 
ROL 
MOV 
ADD 



S*SIZ1(R2), Rl 
Rl 

TOPMEM, R3 
<R3) + 
Rl 
1* 

#SL.BUF, R4 
and add it to ac 
< R4 ) +, RO 
4-S 

*! 'O, RO 

B*SIZ1<R2.>>R1 
Rl 

TOPMEM, R3 
#CMPTMP, R5 
(R5) 
(R3) 
(R5) 

<R5)+, <;R5) 
<R3), RO 



GET # BYTES WANTED IN RESULT 
CONVERT TO # WORDS 
POINT TO AREA FOR RESULT 
CLEAR RESULT AREA 



; POINT TO BUFFER WITH DIGIT STRING 
cumulated value after multiplying hy 10. 
GET NEXT DIGIT FROM NUMBER STRING 
BR IF END HIT 

CONVERT FROM ASCII TO BINARY 
GET # BYTES IN RESULT FIELD 
CONVERT TO # WORDS 
POINT TO RESULT FIELD 
POINT 10 TEMP HOLDING BUFFER 
CLEAR THE CARRY TEMP 
2* OLD VALUE 

ROTATE CARRY INTO TEMP AREA 
COPY THE HIGH-ORDER WORD 
2«- VALUE + NEW DIGIT 



I 
I 



SORTll 


sorn Jh. 


niALIZA 


TJON 


SUBROUTINE- ^ 






172 


0.1 2 '76 


005515 




173 


015000 


006313 




1 74 


01D002 


006145 




17& 


013004 


006313 




176 


013006 


006115 




1 77 


o:'3eio 


060023 




178 


013012 


005525 




179 


013014 


061545 




130 


013016 


011500 




181 


013020 


005301 




182 


013022 


003v360 




1S3 








184 


013024 


000744 




ISf; 








186 


013026 


105767 


003527 ' 


187 


013032 


001412 




188 


013034 


016703 


OOOOOOG 


189 


013040 


016205 


000010 


190 


013044 


006205 




191 


013046 


000401 




192 


013050 


005513 




1 93 


013052 


005423 




194 


013054 


005305 




195 


013056 


003374 




196 








197 


013060 


012601 




198 








199 








200 








201 


013062 


012605 




202 


013064 


012604 




203 


013066 


012603 




204 


013070 


000207 




201:* 








206 








207 








208 








209 








210 








211 








212 


013072 


110067 


003526 ' 


213 


013076 


120027 


000042 


214 


013:02 


001402 




215 


013104 


1 20027 


000047 


216 


013110 


000207 
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ADC 
ASL 
ROL 
ASL 
ROL 
ADD 
ADC 
ADD 
MOV 
DEC 
BGT 



i PROROGATE CARRY 
i 4 «^ VALUE 



<R5) 
<R3) 
-(R5) 
( R3 ) 
(R5) 

RO, (R3) !- 
<R5) I- 
(R5), "-(R5) 
(R5),R0 
Rl 
2* 
; Go check next d i p i t from number string. 

BR 3* 
> See if loe need to negate the comp value u»e just accrued 
4*: TSTB NEOVAL i NEGATIVE? 

BR IF NOT 
POINT TO VALUE 
GET # BYTES IN VALUE 
GET # WORDS 



i 8*^VAL UE 

i 10. *VAIUE + DIGIT 

; ADD HIGH ORDER PARTS 

; COPY HIGH-ORDER FOR NEXT DIGIT 

i DONE? 

; BR IF MORE WORDS TO DO 



6*. 

5*: 



TSTB 


NEGVAL 


BEQ 


SLNENI) 


MOV 


TOPMEM, R3 


MOV 


S*SIZ1<H2)-R5 


ASR 


R5 


BR 


5-* 


ADC 


(R3) 


NEG 


(R3)i- 


DEC 


R5 


BGT 


6* 


MOV 


(SP) t", Rl 



PROPOGATE CARRY 

NEGATE A WORD OF IHE VALUE 

MORE 10 DO? 

BR IF YES 



finished accrueing literal value. 



SLLEND: MOV 
MOV 
MOV 
RETURN 



<SP)+, R5 
(BP)+, R4 
(SP) t-, R3 



QUOTCK is called to see if the character in RO is a quote or 

apostrophe character. 

On return J the condition codes are f>et for BEQ/BNE. 

The character in RO is stored in a cell called QUOTE. 



QUOTCK: MOVE 
CMPB 
BEQ 
CMPB 

1$: RETURN 



RO, GUDTL 

RO, # ' " 

it 

RO, # ' ' 



STORE THE CHARACTER 

IS IT QUOTE? 

BR IF YES 

APOSTROPHE? 

RETURN WITH CONDITION CODE SET 



5DRT3 



sum J Nrn At J 7 ATI DM 
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suBROirriN: 



€ 
€ 
i 

i 
{ 
I 
i 



:< 






A 






6 






7 






8 


013112 


010046 


9 


013114 


010446 


10 


013116 


005004 


11 


013120 


005005 


IS 


013122 


11210O 


13 


013124 


162700 000060 


14 


013130 


002421 


15 


013132 


020027 000011 


16 


013136 


101016 


17 






IB 


013140 


006305 


19 


013112 


006104 


20 


013.144 


010446 


21 


013146 


010546 


22 


013150 


006305 


23 


013152 


006104 


PA 


013154 


006v305 


25 


013156 


006104 


26 


0i3i60 


062605 


27 


013162 


005504 


28 

'"JO 


013164 


062604 


30 


013.166 


060005 


31 


J 3170 


005504 


32 


013172 


000753 


33 






34 


013174 


010467 003454' 


35 


01 3;;; 00 


005301 


36 


015202 


012604 


37 


013204 


012600 


38 


013^06 


000207 



ACRDEC IS CALLED TO ACCRUE A DECIMAL VALUE. 

WHt-N CALLED Rl MUST POINT TO THE 1ST DIOIT OP THE NUMBER. 

ON RETURN THE LOW-ORDER 16 BITS OF 7 HE NUMBER ARE RETURNED 

IN R5. THE HIGH-ORDER 16 BITS ARE STORED IN VALHI. 

ALL. OTHER REOISTERS ARE PRESERVED. 



ACRDEC: 



MOV 

MOV 

CLR 

CLR 
1$: MOVB 

SUB 

BLT 

CMP 

BHI 
i MULTIPLY 

ASL 

ROL 

MOV 

MOV 

ASL 

ROL 

ASL 

ROL 

ADD 

ADC 

ADD 
; ADD IN VALUE 

ADD 

ADC 

BR 
i HIT END OF 
9* : MOV 

DEC 

MOV 

MOV 

RETURN 



■ < SP ) 
- ( 3P ) 



RO, 
R4, 
R4 
R5 

(Rl )+, RO 
f, '0, RO 
9* 

RO, #9. 
9* 
PREVIOUS VALUE 
R5 



BY 10 



R4 

R4, -<SP) 
R5, "(BP) 
R5 
R4 
R5 
RA 

<3P>+, R5 
R4 

( SP ) +, R4 
OF NEW DIOIT 
RO, K5 
R4 
1* 
NUMBirR 

R4, VALHI 
Rl 

<SP>+i R4 
(SP) I-, RO 



PICK UP NEXT CHAR 

SEE IF DIGIT & CVT TO BINARY 

BR IF NOT DIGIT 

IS THIS A DIGIT? 

BR IF NOT 

LOW ORDER *2 
HIGH ORDER «-2 



«-4 



GO GET NEXT CHAR 

SAVE HIGH ORDER PART 
POINT BACK TO DELIMITER 



I 

€ 

I 
f 
I 
4 
< 

i 
€ 
€ 

i 
i 
i 
i 
€ 
i 
C 
I 
I 
< 
I 



SORTJ 
SUBRDUI 



sn;r] jnitjal i2atjdm 



iw- 



HACRD VOf'. 0.!b Monday 



i.hi 



•Mat! -SS 



16: lf6 Pa Of :<i^ 



i 



3 
4 






iv 






6 






7 


01 3:.: JO 


010046 


8 


013::i2 


OOfiOOS 


9 


013^14 


112100 


10 


013216 


162700 000060 


IJ 


013222 


002410 


12 


013224 


020027 000007 


13 


013230 


101005 


14 


013232 


006305 


15 


03 3234 


006305 


16 


013236 


006305 


17 


013240 


060005 


18 


013242 


000764 


19 






20 


0J3244 


005301 


21 


013246 


012600 


22 


0132&0 


000207 



ACROCT IS CALLED TO ACCRUE AN CJCTAi VALUE. 
WHEN CALLED Rl MUST POINT lO START OF NUMBER. 
ON RETURN RESULT IB IN R5. 
ALl OTHER REGISTERS ARE PRESERVED. 



GET NEXT CHAR 
CVT TO BINARY 
BR IF HIT END 



ACROCT: 


MOV 


RO, ( 31^ ) 






CLR 


RT' 


2*: 




MOVB 


(Rl >+, RO 






SUB 


#'0, RO 






BLT 


9t 






CMP 


RO, #7 






BHI 


9* 


1«: 




ASL 


R5 






ASL 


R5 






ASL 


R5 






ADD 


RO, R5 






BR 


2« 


i 


HIT 


END OF 


NUMBER 


9«: 




DEC 


Ri 






MOV 


( SP ) +, RO 






RETURN 





MAKE SURE 



OF NUMBER 
ITS OCTAL 
BR IF HIT END OF NUMBER 
MULTIPLY PREVIOUS VALUE BY 



8 



iADD IN 
> GO GE7 



NEW DIGIT 
NEXT CHAR 



POINT BACK TO DELIMITER 



SORT I SORT 
SUJ3R0UT.TN'- > 



JMniALIZATJOM 
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Pe§t 33 



1 



4 








r» 








6 








7 








s 


013252 


004767 


000130 


9 


013256 


121127 


000047 


10 


013r62 


001004 




11 


013264 


005201 




12 


013266 


112102 




13 


013270 


005201 




14 


013272 


000403 




15 


013274 


004767 


177710 


16 


013500 


010502 




17 


013302 


004767 


000100 


la 


013306 


004767 


177600 


19 


013312 


000207 




20 








21 








22 








23 








24 








2J> 








26 








27 








28 








29 


013514 


005711 




30 


013316 


001432 




31 
32 
33 


013320 


010046 




015322 






34 


013330 






35 


013340 


103004 




36 


013342 






37 


013352 


005767 


003436 ' 


38 


013556 


001006 




39 


013360 


166705 


003434 ' 


40 


013364 






4i 


013372 


1 03763 




42 


013374 






43 


013102 


012600 




44 


013104 


000207 




45 








46 








47 








48 








49 








50 








51 








52 


013406 


122127 


000072 


53 


01 3'} 12 


001404 




54 


013414 






55 


013124 


000207 





GTCPRM IS CALLED TO ACCRUE A SWITCH PARAMETER OF 
THF FORM " ; CHAR : COL " . 

ON RETURN, THL CHARACTER CODE IS IN R2 AND THE 
COLUMN NUMBER IS IN R5. Rl POINTS PAST THE PAR AM. 
ALL OTHER REGS ARE PRESERVED. 



CHECK FOR COLON 

QUOTED CHAR? 

BR IF NOT 

SKIP OVER QUOTE 

GET THE CHAR 

SKIP TRAILING QUOTE 

; ACCRUE OCTAL CHARACTER CODE 

i CHECK FOR COLON 

i ACCRUE DEC COLUMN # 



GTC 


PRM; 


CALL 


CKCDL 






CMPD 


( R 1 ) , # "' 






BNE 


1* 






INC 


Rl 






MOVE 


(Rl )+, R2 






INC 


Rl 






BR 


2* 


1*: 




CALL 


ACROCT 






MOV 


R5, R2 


2*: 




CALL 


CKCOL 






CALL 


ACRDEC 






RETURN 




. IF 


DF 


RTll 





LOADIT IS CALLED TO LOAD A DEVICE HANDLER INTO THE 
TOP OF MEMORY. WHEN CALLED Rl MUST POINT TO A CELL 
CONTAINING THE RAD50 DEVICE NAME AND R5 MUST POINT TO 
THE TOP OF FREE MEMORY. 
ON RETURN R5 POINTS TO THE NEW TOP OF MEMROY. 



LOADIT: TST <R1) 

BEQ 9-li 

MOV RO, --<SP) 

i CHECK STATUS OF DEVICE 

. SERR 

. DSTAT #CBLK>R1 

BCC 1* 

4$: XXX 7 

1*: TST CBLK+4 

BNE 2* 

SUB <CBLK4-2>, R5 

.FETCH R5, Rl 

BCS 41i 
2«: . HERR 

MOV <SP)+, RO 
9*: RETURN 
. ENDC 



; IS THERE A DEVICE NAME SPECIFIED? 



BR IF DEVICE RECOGNIZED 

DON'T RECOGNIZE DEVICE 

IS HANDLER RESIDENT NOW? 

BR IF YES 

RESERVE ROOM FOR HANDLER 

LOAD HANDLER 

BR IF CAN'T GET IT 



CKCOL IS CALLED TO CHECK THAT THE NEXT CHARACTER IS 
A COLON. IF NOT AN ERROR ABORT OCCURS. 
IF YES THE COLON IS SKIPPED OVER. 



CKCOL : 



1*. 



CMPB 


(Rl )+, # 


BEQ 


J* 


XXX 


19 


RETURN 





IS NEXT CHAR 
BR IF YES 
SYNTAX ERROR 



A COLON? 



IF NOT 



SORT J B'-Hl J MI T I Al 12 AT ION 
SUBROUTIN'- -i 
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1 

2 








3 








4 
I' 








6 








7 


013426 


032702 


OOOOOOG 


8 

9 

10 


013432 


001417 




013434 


032702 


OOOOOOG 


li 


013440 


001403 




12 


013<?42 


016702 


000060 ' 


13 


013446 


000207 




14 


0134f>0 


032702 


OOOOOOG 


15 


013^54 


001403 




16 


0134 56 


016702 


000056 ' 


17 


013462 


000207 




18 


013464 


016702 


000054 ' 


19 


013470 


0002O7 




20 


013472 


032702 


OOOOOOG 


21 


013476 


001403 




23 


013500 


016702 


000050 ' 


24 


013504 


000207 




25 


013506 


016702 


000052 ' 


26 


033512 


000207 





Subroutine to determine the correct default file extension based on 

the file type. 

When called, R2 must contain the file type flags (RT*xxx). 

On return, R2 contains, the Rad-50 default file extension. 

COBOL FILE? 
BR IF NOT 

ORGANIZATION = INDEXED? 
i BR IF NOT 
i EXT = CIO 

; MODE - BINARY? 
i BR IF NOT 
i EXT = CDB 



GETDFX: 


BIT 


#RT*CBL, R2 






BEQ 


1* 


i 


COBOL file. 








BIT 


#R r*ox, R2 






BEQ 


2* 






MOV 


R50CI0, R2 






RETURN 




2*: 




BIT 


#RT$RB, R2 






BEQ 


3* 






MOV 


R50CDB, R2 






RETURN 




3«: 




MOV 

RETURN 


R50CDA, R2 


1«: 




BIT 


#RT1iDBL, R2 






BEQ 


4<i; 


i 


DIBOL file. 








MOV 


R50DDF, R2 






RETURN 




4*: 




MOV 

RETURN 


R50DAT, RP 



i EXT 



CDA 



; DIBOL FILE? 
i BR IF NOT 

; EXT = DDF 

iSET EXTENTION TO "DAT" 



SORTI SORT UUTIALIIAJIDN MACRO 

PRTNUH — PrJMt a derimai number 
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.1 

:^ 

4 
5 
6 
7 

e^ 

9 
10 

a 
IP 

13 

14 

15 

16 

17 

IS 

19 

30 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL. PRTNUM 



Print a d£?c:i/nal number 



013;: 14 010146 



013516 004767 000016 



015!;'24 
013:'26 
013532 



013534 
013536 



112100 
001403 

000773 



012601 
000207 



013540 
013542 



010446 
010546 



1 354 4 1 270 1 Oil 702 ' 



013550 
013554 
013560 
013564 
013566 
013570 
013572 
013574 



012700 
004767 
062700 
1 1 004 1 
005704 
001367 
005705 
001365 



000012 

OOOOOOG 

000060 



PR1NUM 15 called to convert a 32-bit binary value to ascii and print 
the resulting string on the terminal without trailing Ci — Lf. 

Inputs; 
R4 = louj-order 16--bit5 of value 
R5 = High-order 16-bits of value 

PRTNUM: MOV Rl, (3P) 

Convert the value to en asciz string. 



CALL CVTNUM 

Print the rf&ult. 

1«: MOVE <R1)+, RO 

BEQ 2* 
. TTYOUr 

BR 1* 



CONVERT VALUE TO ASCIZ STRING 



GET NEXT DIGIT FROM STRING 
BR IF ASCIZ NULL HIT 
PRINT THE DIGIT 



Finished 



(SP)+, Rl 



MOV 

RETURN 

-SBTTL CVINUM — Convert binary value to asciz string 

CVTNUM is called to convert a 32~bit binary value to an ascii digit string. 

Inputs: 

R4 = Low-order 16-bits of value 
R5 - High-order 16-bits of value 

Outputs: 
Rl = Address of start of ascir string. 



CVTNUM: MOV 
MOV 



R4, -<SP) 
R5, -<3P) 



Get pointer to end of asciz result buffer. 



MOV #CVTBUF-t-9. , Rl 
Split off low order diqit. 



1*: 



MOV 


#10. > RO 


CALL 


DIVIDE 


ADD 


#'0, RO 


MOVB 


RO, -<R1) 


TST 


R4 


BNE 


1* 


TST 


R5 


BNE 


ili 


Finished 





; POINT TO NULL BYTE AT END OF CONVERT BUFFER 



SET DIVIDE BY 10. 

DIVIDE R4-R5 BY 10. 

CONVERT REMAINDER TO ASCII DIGIT 

MOVE 10 RESULT BUF-FER 

MORE TO CONVERT? 

BR IF YES 

CHECK HIGH-ORDER PART OF QUOTIENT 



SORTI SbUl INIIiAl JZATIDN HACRD v05. OJb Monday 06-Hay-S& 16:1-6 Peyt- 35 1 

CVTNUM - — CoMVtrt hsnary value to a&cix fctiiiig 

58 0Jrv.V6 0JP605 

59 0J3600 01P604 

60 01 36 '-'2 000.707 



MOV 


(&i'>+, R5 


MOV 


<W)+, R4 


RETURN 





01 
01 



3610 



010067 
012706 



SORT I SORT IMn lALIZATlDN 
EXECUTION 11-i.M; NATION 



1 
5 
3 
4 

7 
B 
9 
10 
li 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 



36 1 4 

^ r. < *:} 

4060 

4064 



01 

01 

01 

01 

01 

014066 

014216 



005767 
001454 



01 
01 
01 
01 

22 01 

23 01 

24 01 

25 01 

26 01 

27 01 
2Ei 01 
29 01 
30 

31 
32 
33 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 
44 

45 

46 01 

47 01 

48 01 
49 

50 01 

51 O.t 
52 

53 01 

54 01 

55 01 

56 01 

57 01 



421 6 

4232 
4236 
4240 
4242 
421^ 
4246 
4250 
4256 
4 2 SO 



105767 
00 1 1 23 

012701 
005711 
001407 
005731 
001774 
005741 

000767 



4260 
1264 
4266 
4274 
4302 
4206 
4210 
4312 
4316 
4326 000167 



016767 
016767 
012700 
104375 
103006 
105067 



4332 
4236 
4340 

4246 
4252 

4354 
4362 
4266 
4272 

4276 



016701 
001034 
1 52737 

105767 
001040 



016704 
016705 
004 767 



MACRO V05. Oib Hondsy 06-f'^fay--S5 16: b6 Paije 36 



SBTTL I-XFCUTION TERMINATION 



TERMINATION ROOTlNfn. 
ENTER WITH ERROR CODE 



IN RO. 



000136' 
OOOOOOG 



OOOOOOG 



TERM: MOV 
MOV 

; MAKE SURE ALL 
«KEEP 
*PURGE 
*KEEP 
TST 
BEQ 
*PURGE 

7$: 

. IF DP RTll 

i RELEASE DEVIC 



RO, ABTBUf- 
=^ STACK, SP 
. CHANNELS 
*?Pi)l 
#f -02 
#rD3 



ARE 



[23 



II 



71i 
#FJ)4 



; RESET SP 
CLOSED 



; DID WE USE TEMP FILE 2? 
i BR IF NOT 



OOOOOOG 



OOOOOOG 



12*: 



11*: 



TSTB 

BNE 

. SERR 

MOV 

TST 

BEQ 

TST 

BEQ 

TST 

. RELEAS 

BR 



E HANDLERS 

SPCFLG 

13* 

#FILES, Rl 

<R1) 

8* 

e(Rl )+ 

11* 

-<RJ } 

< R J ) t- 

11* 



i Special chain mode? 
; ~> yes 



> FILE 
END OF 



8*: 



SETTOP #SIEND 



Rl -> TABLE OF 
(Rl ) =- O IF AT 
EXIT IF END 
CHECK DEVICE NAME 
IGNORE BLANK DEVICE 
REVERSE AUTO -INCREMENT 
RELEASE HANDLER 



; RESET TOP OF MEMORY 



SPECS 
TABLE 



FROM ABOVc 



IF WE WERE CALLED IN MESSAGE MODE SEND BACK A RESPONSE 



105767 OOOOOOG 



OOOOOOG 000142' 
O00OO2G 000140' 
000126' 



OOOOOOG 
163636 

000136' 

000001 000053 

OOOOOOG 



OOOOOOG 
OOOOOOG 
177116 



TSTB 
BGE 
MOV 
MOV 
MOV 
EMT 
BCC 
CLRB 
XXX 
10*: JMP 

> 

i SEE IF ANY 

1*: MOV 
BNE 
BISB 

i ONLY PRING " 
TSTB 
BNE 

; Print number 
. PRINT 
MOV 
MOV 
CALL 
. PRINT 



MODE 

1* 

SRTCNT, MRCl 

SRTCNT+2, MRC2 

#SNDBLK, RO 

375 

10* 

MODE 



MESSAGE MODE? 

BR IF NOT 

SET SORTED RECORD COUNT 

; SEND REPLY 

i BR IF NO ERROR 

i GET OUT OF MESSAGE MODE 

jWAIT for ANOTHER MESSAGE 



ERROR OCCURED. 

ABTBUF, Rl i 

2* ■> 

#NOERR, @#USERRB ; 
"SORT COMPLETED" If 

MODE 

3* i 

of records read 

#TXNRR 

RCNTl, R4 

RCNT2, R5 

PRTNUM 

#TXNRS 



GET ERROR CODE 
BR IF ERROR OCCURED 
SET SUCCESS FLAG 
IN DIRECT RUN MODE. 

; BR IF IN CHAIN MODE 

and sorted. 

i NUMBER OF RECORDS READ: 

; GET LOW-ORDER VALUE 

; GET HIGH-ORDER VALUE 

; PRINT THE VALUE 

; NUMBER OF RECORDS SORTED: 



i 
I 
I 
I 

i 

i 
i 

f 
i 
I 

I 

i 
< 

I 
i 
I 
4 

I 



SORT I 


SORT JrvITIALIZA 


T.TOM 


EXECUTION Tf:-.<H1NAI ItiN 




58 


01440<1 


016704 


0000000 


59 


014410 


016705 


000002G 


60 


014414 


004/67 


1 77074 


6.t 


J 4420 






62 


014426 


000412 




63 








64 


014430 


006301 




65 


014432 






66 


0.14440 






67 


01<i446 


1 52737 


000010 


68 


014454 


005767 


OOOOOOG 


69 


014460 


001002 




70 


014462 


000167 


163502 


71 








72 


014466 


005701 




73 


014470 


001374 




74 


014472 


012702 


000500 


75 


014476 


012701 


OOOOOOG 


76 


014502 


012122 




77 


014504 


020227 


000510 


78 


014'^10 


103774 




79 


014512 






BO 


014536 


016701 


000136' 


81 


014542 


001410 




82 


014 544 


012722 


041101 


03 


014550 


012722 


051117 


84 


014554 


012722 


020124 


85 


01^560 


110122 




86 


014562 


105022 




87 


014564 






88 








89 








90 








91 








92 








93 








94 








95 




014574' 




96 




000001 





MACRO 



V05. 01b 


Mo n d a y 06 


-May--8S 16; 56 Patj 




MOV 


SRTCNT, R4 i 




MOV 


SRTCNT+2. R5 ; 




CALL 


PRTNUH ; 




. PRINT 


#CRLF i 




BR 


3* 


; PRINT SORT ERROR MESSAGF 


2*: 


ASL 


Rl i 




. PRINT 


#SRTFHD i 




. PRINT 


ERRTAB(R1> ; 




BISB 


#SEVERR, e#USERRB; 


3$: 


TST 


CINSPC i 




BNE 


4$ i 


5*: 


JMP 


SORTR i 


i SEE 


IF WE SHOULD CHAIN TO NEXT 


4*: 


TST 


Rl ' 




BNE 


5* ; 


13«: 


MOV 


#500, R2 > 




MOV 


#CINSPC, Rl 


6«: 


MOV 


(Ri)+, <R2)^ 




CMP 


R2, #510 




BLO 


6* 




SETNRT 


CINNR1, CHNPPN 




MOV 


ABTBUFiRl i 




BEQ 


14* > 




MOV 


#"AB, <R2>+ ; 




MOV 


#"0R, <R2)i- ; 




MOV 


#"T , <R2>+ ; 




MOVE 


Rl, <R2> 1- 




CLRB 


(HP) i- 


14*: 


. CHAIN 


> 



36-. I 



GET LOW -ORDER VALUE 
GET HIGH-ORDER VALUE 
PRINT VALUE 
TERMINATE THE LINE 



CVT CODE TO WORD TABLE INDEX 

PRINT ERROR MESSAGE HEADER 

PRINT ERROR MESSAGE 

SET SEVERE-ERROR FLAG 

CHAIN WANTEDT-" 

BR IF CHAIN 

GO GET NEXT SORT COMMAND LINE 

PROGRAM 
ERROR DURING S0RT7' 
BR IF YES 
SET UP CHAIN AREA 



Check if special error mode 

"> no 
Ve&t return the message "ABORT X", where 

X is a single byte binary valut» of the 

error code 



; CHAIN TO NEXT PROGRAM 



. IFF 

. ENDC 

SI END 



iELSE IF RSX-11 
JMP SORTR 



} GO GET NEXT COMMAND 



END 



SORT I SOiiJ 
Symbol tab • r 



INITIAI IZATION 
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ABTBUF 


0001 36R 


002 


EM20 


004730R 


002 


F*INPL- 


•K-K-»i-fi-«- ft G 




KL EN '-^ 


«•■t?•^s•ls•^?•^4• G 




owe NT = 


«-««-J«-«"H- G 




ACRDEC 


0131 12R 


005 


£M21 


004766R 


002 


F*PAUS= 


**•>*•**•»(■ G 




KSTRT = 


»*«•«*•«■ G 




PARSW 


001306R 


005 


ACRFLD 


011650R 


005 


EM22 


00501 7R 


002 


F*VLEN= 


■)j-«- ■»>*■•»«• G 




K7YPE -- 


«••«•#*«•*• G 




PFSFC == 


000002 




AC R OCT 


01 321 OR 


005 


EM23 


005065R 


002 


GENBRU 


011614R 


005 


KYBJN =^ 


«-ft«-l«'#«- G 




PRTNUM 


013514R 


005 


AFCKV 


012036R 


005 


FM24 


00514 IR 


002 


GENBUF 


0024 32R 


002 


KYCOMP= 


*#«-e-«-4«- G 




POBASE=^- 


*-jf«-**«- G 




ANDFL.G^ 


fi-«-if«#«- Q 




£M25 


005206R 


002 


GENKPT 


01 1554R 


005 


KYDATE== 


«-«^««-fi-«- G 




POTOP = 


««■*■*■*# G 




ASTRTX 


011622R 


002 


EM26 


005255R 


002 


GENRPT 


01i446R 


005 


KYDIS - 


*»#«*it G 




PISIZ = 


#«^«-««» G 




BELL = 


000007 




eM27 


00531 IR 


002 


GENVEC 


00361 OR 


002 


KYLSS == 


«•«#*«■«• G 




PITOP == 


»#^«-** G 




BIGEST= 


177777 




EM2S 


005367R 


002 


GENWIN 


011430R 


005 


KYTSS =- 


«■#»*«■«■ G 




P2SI2 = 


*«■««■** G 




BLKFC :^= 


K-frfc-K-lS-*- 




EM29 


00544 IR 


002 


GETDFX 


013426R 


005 


KYUCA = 


*»#*#* G 




P2T0P == 


#«•«■«•«•* G 




BT*HI == 


00000 I G 




£M3 


004035R 


002 


GETEND 


001060R 


005 


LF 


000012 




QBLK = 


#*««•«■* G 




BT*LO = 


000002 




F^M30 


005502R 


002 


GETSW 


001516R 


005 


LOAD IT 


013314R 


005 


QLEN = 


000003 




BT*NE = 


000003 




EM31 


005544R 


002 


GETTYP 


0027 56R 


005 


LOWMEM= 


«•»*#*«• G 




OUOTCK 


013072R 


005 


BT*REV= 


000004 G 




EM32 


0056 16R 


002 


GNASCI 


011104R 


005 


MAPEND= 


«-«*«-«e G 




QUOTE 


003526R 


002 


BUFSIZ= 


001000 




EM33 


005672R 


002 


GNBIN 


011344R 


005 


MODE = 


•(«•««■«•*«• G 




RCNTl = 


#it«*** G 




CBLK 


003432R 


002 


EM34 


005753R 


002 


GNCALL 


011374R 


005 


MRCl 


000142R 


002 


RCNT2 == 


*«■**■•){•«• G 




CHADEX 


0001 04 R 


002 


EM35 


0060 12R 


002 


GNCMP 


011306R 


005 


MRC2 


000140R 


002 


RECLEN-- 


#R-«*«-# G 




CHNBIT= 


000400 




EM36 


00605 IR 


002 


GNDATE 


011336R 


005 


MSGBLK 


0001 16R 


002 


RECl == 


#*«•«•** G 




CHNO - 


000000 




EM37 


006077R 


002 


GNDIS 


011360R 


005 


MSGBUF 


000644R 


002 


REC2 = 


*&«•*«•* G 




CHNPPN= 


«■«•+: «-Kfi- 




EM38 


0061 65R 


002 


GNLSS 


011322R 


005 


MSGNAM= 


«•»*«■#«• G 




RETLOC 


00351 OR 


002 


CINFIL 


001 604 R 


002 


EM4 


004060R 


002 


GNTSS 


011330R 


005 


MULTPY= 


**»*«•* G 




RMON == 


000054 




CINNRT= 


^-KKte-*- Q 




EM5 


004105R 


002 


GNUCA 


011366R 


005 


MWAIT 


000374R 


005 


RSPCS = 


»#««•** G 




CINSPC= 


«-«K-1S-*& G 




EM6 


0041 4 3R 


002 


GNUS I 


011252R 


005 


MXREC1= 


#**#■«•«• G 




RSTAT 


0035 12R 


002 


CISRTI= 


«■«(?«■« iJ G 




EM7 


004174R 


002 


GOTLIN 


000352R 


005 


MXREC2- 


«•«•**«•«• G 




RSTEXT= 


«#«•#*# G 




CKCOL 


013406R 


005 


EM3 


004234R 


002 


GTCPRM 


013252R 


005 


M*P0S1= 


000000 G 




RSTS = 


***«■*# G 




CKFTYP 


004600R 


005 


eM9 


004263R 


002 


GTERR 


003244R 


005 


MiPP0S2^= 


000002 G 




RSTSCH= 


*«K-K"»«^ G 




CMPCOD 


00001 4R 


002 


ENDSW 


004514R 


005 


GTLN 


0001 14R 


002 


M*SIZE= 


000004 G 




RSTSJB= 


000404 




CMPOPS 


OOOOOOR 


002 


EOFBUF= 


***■«*•«■ G 




GTOK 


003240R 


005 


M**SZ - 


000006 G 




RT*CBL= 


**««-t^# G 




CMPTMP 


003442R 


002 


EOFCHR= 


«#lt*15-K- G 




GTORG 


003074R 


005 


NEGVAL 


003527R 


002 


RT«CR = 


«•«&«■«•* G 




CODGEN 


006r?26R 


005 


EOFCOL= 


*«•«•*«■!} G 




GTRMD 


0031 76R 


005 


NOERR == 


000001 




RT*DBL== 


#«*•■«•«•«■ G 




CODS I 2 


003I566R 


002 


E£RR 


000006 




HB*ARS= 


000006 




NUMBUF= 


«•**»** G 




RT«FTN= 


*fi-«-«-it* G 




COMPARE 


**«•«■** G 




ERRLOC= 


000052 




HB*DFS= 


000002 




NUMCO =- 


000014 




RT*F11= 


*«^«*«-* G 




CR 


000015 




ERR TAB 


003632R 


002 


HB*DIP= 


000030 




NUMCOL- 


*#*»«# G 




RT*OR = 


*<fjf*** G 




CRLF 


011670R 


002 


FDl 


««•*«** G 




HB*DUP= 


000001 




NUMKY2== 


***»*« G 




RT*OS = 


#«•«#** G 




CSPCOF=- 


000376 




FD2 


*«•*«•«•# G 




HB*RIU= 


000032 




NUMLEN- 


«*«•«•*# G 




RT«OX = 


*«■«*!•«* G 




CTRLZ - 


000032 




FD3 


*«•«■«•«•* G 




HB*RSZ= 


000004 




NXSJ 


001716R 


005 


RT*RA = 


*»««•«•# G 




CURSAV== 


**«*«•«■ G 




FD4 


««•**** G 




HD*DEV= 


000000 




NXSJl 


002074R 


005 


RT*RB = 


*#««•«•* G 




CURSEL 


003476R 


002 


FILBUF 


001344R 


002 


HD**SZ= 


000004 




NXTSW 


004466R 


005 


RT*TXT= 


*+f«it«* G 




CVTBUF 


01i671R 


002 


FILES = 


*»■<«■<«•«•«■ G 




HLPMSG 


0062 57R 


002 


OBUFSZ= 


«■«■**«•# G 




RT*VLN= 


«^«^K•^«^«■K• G 




CVTNUM 


013540R 


005 


FILPPN= 


«•«■*#«•«• G 




I NODE X 


000074R 


002 


ONEASC 


011160R 


005 


RT*X = 


*#*«•«« G 




DBLKFC= 


000005 




FLDMAP= 


***«■«•«• G 




INDNRT 


0035 16R 


002 


OPNDAT 


007550R 


005 


RTll ="~ 


OOOOOO 




DECPT 


003?30R 


002 


FLDDRD 


003506R 


002 


INDRCM 


000572R 


005 


OPNTMP 


005532R 


005 


RWDLEN= 


*i5-»*** G 




DEFEXT 


000064 R 


002 


PL DP OS 


003500R 


002 


INFLEN= 


****•#■)?• G 




OPRSTK 


003540R 


002 


R50CDA 


0000 54R 


002 


DIVIDE= 


•K-IUS «■«•«■ G 




FLDSIZ 


003502R 


002 


INIFIL 


007142R 


005 


OPRSTP 


003537R 


002 


R50CDB 


0000 56R 


002 


EMO 


0037 50R 


002 


FLDTYP 


003504R 


002 


INIX 


010022R 


005 


OPTRNS 


000022R 


002 


R50CD0 


000062R 


002 


EMI 


003767R 


002 


FST1ME= 


*#«■«•*■«• G 




INRLEN= 


**#**«• G 




OP*AND--= 


000006 




R50CI0 


000060R 


002 


EMIO 


00431 IR 


002 


FT*A = 


000014 




INXDEV 


003514R 


002 


OP^BOE"^ 


000002 




R50DAT 


0000 52R 


002 


EMU 


00435 IR 


002 


FT*B = 


000002 




ISMARS= 


«■«•^^^i■*^i• G 




OP*CND=- 


000011 




R50DDF 


0000 50R 


002 


EM12 


004401 R 


002 


FTliC = 


000000 




ITYPE :^ 


1S-#1*«-R-«- G 




OP*COR- 


000010 




R50DK 


000034R 


002 


EMI 3 


004434R 


002 


FT$D = 


000012 G 




JSW 


000044 




OP*EOE=- 


000001 




R50TMP 


000046R 


002 


EM14 


0044 70R 


002 


FT$P = 


000010 




KAD 


**}?»«•* G 




OP$LPN=- 


000004 




R50TN0 


000036R 


002 


EMI 5 


004 527 R 


002 


FT* I = 


000016 




KEYBR 


OOOOOOR 


004 


OP*NOT--= 


000007 




R50TN1 


000040R 


002 


EM16 


00^ 565R 


002 


FT$vi = 


000020 




KEYCOD 


003554R 


002 


OP*OR = 


000005 




R50TN2 


000042R 


002 


EMI 7 = 


004401 R 


002 


FT*T = 


000006 G 




KEYEND 


000042R 


003 


OPfRPN^- 


000003 




R50XX 


000044R 


002 


EM18 


004621 R 


002 


FTfU = 


000004 




KEYTAB 


OOOOOOR 


003 


ORFLG '-^ 


K-fi-*»** G 




SAVBUF= 


**<f#*# G 




EMI 9 


004676R 


002 


F«BIN " 


«e^fr«-«-* G 




KEYTC 


003542R 


002 


OTYPE == 


<£•«*«■«•# G 




SCNCMD 


0004 50R 


005 


EM2 


00401 IR 


002 


F*CR = 


*«■«■*«•«• G 




KEYWD 


0034 52R 


002 


OVLBIT^- 


001000 




SCNCMl 


001060R 


005 



f 
I 



SORT! 


SORT ihill 


lALIZATIOM 
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Symbol 


tat ip 






























SELADR= 


•t5-«-**-R-ft G 




SLPSOP 


0041 4 2R 


005 


SWBUF 


002052R 


002 


TMPCNr== 


«•«■*«■«■«- G 




XXX21 


= 


002664R 


005 


SEOFR 


006700R 


005 


SLTMS 


012624R 


005 


SWCHAN 


002202R 


005 


TOPMEM-^ 


K-****-*- G 




XXX22 


rz 


004532R 


005 


SETBLK 


0067 fi4R 


005 


SLTSS 


012670R 


005 


SWCR 


004454R 


005 


TRYT2 


0060 52R 


005 


XXX24 


K 


0070 14R 


005 


SETCHN 
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*SYSTE 

*UNLOC 

*WA1T 

*WRITE 

. . . CMO 

. . . CMl 
. . . CMS 



CM3 
CMS 



. . CM7 

CHAIN 

CLOSE 

CSISP 

DELET 

DSTAT 

ENTER 

EXIT 

FETCH 

GTLIN 

GVAL 

HERR 

LOCK 

LOOKU 

PRINT 

PURGE 

QSET 

READ 

READW 

RELEA 

REOPE 

SAVES 

SERR 



1"63S» 
1 -6S£i# 
1 -14S>»f 
1 -402# 
i 356# 
1 -424^? 
1-4'?S» 



-323» 



664# 

1 696# 
J 465# 
1 492# 
1 -309# 
1 - ^rj^tt 

1 15 7# 

l-674# 
1 -5S9# 



1-1/1# 
i. -333tt 
l--553# 



I 
9 7 

11-44 

1 1 -44 
22-04 
26-27 

1 1 -52 

9-7 
29-64 

1 1 49 
1 •96# 
1 -9S# 
l--100(f 



I 



97# 
9S» 
■96# 
'^i9« 
98# 
101 «l 
-10t># 
97# 
96# 
-96# 
97« 
991? 
935? 
1 lOIt 
.1 -1D0« 



1 



?9# 



1 -JOOI« 
1-1008 
i 974! 



•11 



?4-4i; 



Ir 



-12 
0--35 



11 



-34 
■SO 
-124 



22-102 
26-30 
22-17 
25-129 



11 -S4 



9 
16 
11- 
11 

22- 
2 6 —I 



26- 

1 
11 

9 

22- 
33- 



11 

9 



7 

26 

49 

44 

S4 
17 

102 

50 

96 

57 

30 

99# 

52 

7 

11 

34 
-80 
-23 
-42 
-37 



9 7 
1 1 -34 
1 1 -44 
10-37 



26-30 
11-49 
1 1 'A 6 
22-17 
25-129 
9-7 



•"in.-, 1 ' 



36-9 

22~S4 
26-27 



36-10 



-105 



9-7 
25-32 
22-17 
1 1 -49 
22-04 
26-30 

10-37 
22-98 
36-61 

36-87 
'Jt* - 1 0' 
1 1 -35 
22-12 

22-84 

33-40 



11-53 



■i 1 



36-1 1 



36-14 



9-37 
25-32 
22-80 

I 1 -49 
22-96 
26-30 
36-9 

I I -33 
22-lOJ 
36-65 



26-35 
16-26 
22-102 



36-27 



22-12 



.'2-98 



9-37 

22-04 
1 1 -49 
22 -96 
26-30 
36-10 
1 1 -42 
25-124 
36-66 



36-9 

25-32 

36-10 

22-98 



22-1 1 


22-12 


22-102 


22-5 






25-124 


26-27 




36-53 


36-57 


36-61 



9-37 

33 34 

22-96 
-49 
-96 
-30 
-11 
-44 

25-129 



11 

22 

26- 

36 

11- 



36-10 
36-14 



33-42 



36-65 



9-37 
33-40 
22-98 



36-10 
36-14 
1 1 -46 
26-27 



36-11 



36-10 



36- 



11 
36 
25 



36 



-35 

-27 

-124 

-11 

-98 

-10 



11 49 

26-30 



36-14 



1 1 -35 



25-129 
22-12 
22-98 
36-14 



11-53 
33-34 



11-35 



36 



■102 

-14 



12-12 
33-40 



1 1 -42 

26-30 
22-17 
22-102 



22-11 
35-20 



1 1 -46 



22-80 
25-124 



36-10 



11-53 



22-80 
25-124 



22-17 
36-14 



16-26 



22-80 
25-129 



22-80 
36-27 



36-14 



22-102 



WW "wJ w 



36-10 



36-14 



36-20 
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■85 16: 56 


Paqf M -2 
















Cross r 


ef ei ersr e 


tabJf iCiU 


.!- V05. 0. 


;o 
























. SETTO 


i •97# 


1 1 -33 


12-12 


























. TTYIN 


1 99# 


9 -J;l 


9-56 


























. TTYOU 


1 9e# 


7 -^O 


35-20 
























. UNLOC 


1 --96# 


1 1 -54 


22-105 


























. WAIT 


1 -lonf 


26-32 




























. WRITE 


1 -iOlU 




























. WRITW 


i-i Din 






























POP 


1 -11B# 


22-11 


22-11 


22-12 


22-12 


22-17 


22-17 


22-80 


22-80 


22-84 


22-84 


22-96 


22-96 


22-98 






22 9a 


22-102 


25-124 


25-124 


25-129 


25-129 


26-27 


26-27 


26-30 


26-30 


26-32 


26-35 


36-9 


36-10 




36 n 


36 14 




























PUSH 


1 -U2# 


22-11 


22-11 


22-12 


22-12 


22-17 


22-17 


22-80 


22-80 


22-84 


22-84 


22-96 


22-96 


22-98 






22-98 


22-- 102 


25-124 


25-124 


25-129 


25-129 


26-27 


26-27 


26-30 


26-30 


26-32 


26-35 


36-9 


36-10 




3t-!l 


36 1 4 




























SETNRT 


1-210# 


22-11 


22-12 


22-80 


22-84 


22-96 


22-98 


22-102 


25-124 


26-27 


36-10 


36-14 


36-77 






SW 


5-iO# 


5-22 


5-23 


5-24 


5-25 


5-26 


5-27 


5-28 


5-29 


5-30 


5-31 


5-32 


5-33 


5-34 




b-'-3b 


b-36 


5-37 


5-38 
























XXX 


6 4« 


10-15 


10-35 


1 J -37 


14-23 


1 5-8 


15-16 


16-21 


17-36 


17-78 


17-86 


17-99 


19-32 


19-64 






19 87 


19-117 


19-147 


20-9 


20 -20 


20-54 


21-3 


22-86 


24-18 


25-34 


25-58 


25-126 


26-23 


26-29 




26 34 


29-18 


29-37 


29-43 


29-77 


29-Q2 


30-69 


30-95 


30-121 


33-36 


33-54 


36-42 
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4 

i 

€ 
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Of '0000 



3 

4 

5 

6 

7 

8 

9 

10 

II 

12 

13 

14 

lb 

16 

17 

18 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
30 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



000000 ' 





. TITLE 


SOf^Tl 




. CSECT 


S0F<T1 




. ENABl. 


to 


PIPASE 


= 





jORI 



PHASE 1 



THIS SECTION OF SORT CREATES THE INITIAL SORTED RUNS. 

IT USES A REf^LACEMENT SELECTION ALGORITHM FOR THIS PROCESS. 

SEE KNUTH 'ART OF COMPUTER PROGRAMMING' VOLUME 3 SECT. 5.4. 1 

FOR A DISCUSSION DF THIS TECHNIQUE. THE SYMBOLS AND LABELS USED 

THIS PROGRAM AGREE WITH THE CONVENTIONS USED BY KNUTH. 



IN 



Copyright (c) 19S0, 1981. 
S&H Computer SystemBj Inc. 
Nashville* Tenne&E-eG USA 

All rights rpf-ervpd. 

This softiuare may not be sold, distributed or otherwise made 

available for use except as licensed by S?<H Computer Systems* Inc. 

COBOL -Plus, SORT-Plus, RTSORT, TSX and TSX-Plus avB registered 
trademarks of S&H Computer Systems, Inc. 



GLOBAL DEFINITIONS. 

. GLOBL SORTPl, PI TOP, PIBASE.PISIZ 

GLOBAL REFERENCES. 

. GLOBL KTYPE, FDl, SETNRT 

. GLOBL TOPMEM, RECLEN, FT'*D, SOf AND, SO«NOT 

. GLOBL UEOF 

. GLOBL FILRN, FILST, FILFL. NUMKY2 

. GLOBL R WDLEN, MXF I LS, MXF I L2, F I LNB 

. GLOBL SKPCNT, INFLEN, OWCNT, BLKFC 

. GLOBL OBUF 1 , 0BUF2, OBUFSZ , EOFBUF 

. GLOBL OBFEND, MXRECl, MXREC2 

. GLOBL KYDATE, KYLSS, KYTSS 

. GLOBL KYBIN, ITYPE, SRTCNT, TMPCNT 

. GLOBL RT$CBL, RT<^DBL, RT*FTN, RTHTXT 

. GLOBL RT«OS, RT$OR, RT*OX, RT«F1 1 

. GLOBL RT*RA, RT*RB, RT*VLN, RT«CR 

. GLOBL NUNBUF, NUMCOL, NUMLEN 

. GLOBL RCNTl , RCNT2, EOFCOL, EOFCHR. ABORT 

. GLOBL NXTBLK, ORPOS, FLUSH. COMPAR 

. GLOBL PI TERM, LOWMEM, FLBLK, ISMARS 

. GLOBL OUTWRT, IFPNT, CUROFL, KSTRT, FT*T 

. GLOBL FLDMAP, INRLEN, MAPEND, SELADR 

. GLOBL S^OPR, SO*CMP, SO*OR, S*P0S1 , S*P0S2 

. GLOBL S*FLG, SF^LIT, S«SIZ1, S$7YP, BT*LO 

. GLOBL BT^HI, BT«REV, S*LINK, KYCOMP, KYDIS 

. GLOBL KYUCA, N*P0S1. 

. GLOBL S*BR, ORFLG, ANDFLG, CI SRI 1 

.GLOBL CURSAV, SKPVAL 
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SORI 
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2 




000620 


3 






4 






5 


000000 




6 


00J440 




7 


003100 




8 


004 540 




9 


006200 




10 






11 




000015 


13 




000012 


13 




000032 


14 


007640 


000000 


15 


007642 


000000 


16 


007644 


000000 


17 


007646 


000000 


IS 


007650 


000000 


19 


007652 


000000 


20 


007654 


000000 


21 


007656 


oooooo 


22 


007660 


000000 


23 


007662 


oooooo 


24 


007664 


oooooo 


25 


007666 


oooooo 


26 


007670 


oooooo 


27 


007672 


oooooo 


28 


00/674 


oooooo 


29 


007676 


oooooo 


30 






31 


007700 


000 


32 






33 


007701 




34 


007707 




35 






36 






37 






38 






39 






40 






41 






42 






43 






44 






45 






46 







MAXREC 


=S 


400. ; 


i 

i RECORD DESCRIPTOR TAl-iLf-lS. 


LOC: 


. BLKW 


MAXREC ■> 


LOBlfR: 


. BLKW 


MAXREC i 


FE: 


. BLKW 


MAXREC 


FI: 


. BLKW 


MAXREC i 


RN: 


. BLKW 


MAXREC i 


GENERAL DATA 


AREA. 


CR 


= 


15 i 


IF 


= 


12 •> 


CTRL2 


= 


32 i 


NUMREC: 


. WORD 


i 


IBUFl: 


. WORD 


i 


IBUF2: 


. WORD 


i 


RQ: 


. WORD 


i 


RC: 


. WORD 


i 


RMAX : 


. WORD 


i 


Q: 


. WORD 


i 


LSTKEY: 


. WORD 


i 


IBFEND: 


. WORD 


i 


IRPOS: 


. WORD 


i 


INRDS7: 


. WORD 





OFLINK: 


. WORD 





MAPBUF: 


. WORD 





RECPTR: 


. WORD 





SELREC: 


. WORD 





LSTACK: 


. WORD 





; BYTE 


DATA ITEMS. 


EOFFLG: 


. BYTE 





; Logical operation temp stack. 




. BLKB 


6. 


LSTKTP: 







. EVEN 
MACRO TO CAUSE ABORT 

. MACRO XXX CODE 



XXX 'CODE 



MOV 

CALL 
. ENDM 



#CODE, RO 

ABORT 

XXX 



; MAX # OF RECORDS TO PLACE IN COR& 



ADDRESS OF RECORD<I). 
INDEX OF LOSER BELOW THIS NODE. 
EXTERNAL BLOCK FORWARD LINK. 
INTERNAL BLOCK FORWARD LINK. 
RUN « THIS RECORD WILL GO IN. 

ASCII CARRIAGE RETURN 
ASCII LINE FEED 
CTRL-Z EOF CHARACTER 

# OF RECORDS WHICH WILL FIT IN CORE, 
ADDRESS OF PRIMARY INPUT BUFFER. 
ADDRESS OF SECONDARY INPUT BUFFER. 
RUN # RECORD<Q) WILL GO IN. 
CURRENT RUN NUMBER. 

# OF HIGHEST RUN IN FILE. 
INDEX OF NEW RECORD. 
ADDRESS OF LAST WINNER RECORD. 
ADDR OF END OF INPUT BUF. 
POINTER TO NEXT INPUT REC. 



SORT! 


Sti^i i 


■ PHABF 1 


MACRO V05 


ALLOCATE COK& 5 
1 


PACE 




3 
4 
5 
6 
7 
3 
9 


007/10 


004767 


OOOOOOG 


007714 






10 








11 


007/34 


005767 


0000000 


12 


007740 


001407 




13 


007742 


010167 


1 77722 


14 


007746 


066701 


OOOOOOG 


15 


007752 


005201 




16 


007754 


0427O1 


000001 


17 








18 


007760 


010167 


177656 


19 


007764 


010167 


177672 


20 


007770 


010167 


177664 


21 


007774 


066701 


OOOOOOG 


22 


010000 


010167 


177640 


23 


010004 


066701 


OOOOOOG 


24 


010010 


010167 


OOOOOOG 


25 


010014 


066701 


OOOOOOG 


26 


010020 


010167 


OOOOOOG 


27 


010024 


066701 


OOOOOOG 


28 








29 


010030 


010167 


1 77622 


30 


010034 


066701 


OOOOOOG 


31 


01C040 


005002 




32 


010042 


016703 


OOOOOOG 


33 


010046 


166703 


OOOOOOG 


34 


010052 


012704 


000000 ' 


35 


010056 


020103 




36 


01v)060 


101010 




37 


010062 


010124 




38 


010064 


005202 




39 


010066 


020227 


000620 


40 


010072 


103003 




41 


010074 


066701 


OOOOOOG 


42 


Old 00 


000766 




43 


010102 


010267 


177532 


44 


010106 


020227 


000004 


45 


010112 


103004 




46 


010114 






47 


010124 


010205 




48 


010126 


005302 




49 


010130 


010503 




50 


010132 


060203 




51 


010134 


006203 




52 


010136 


006303 




53 


010140 


010204 




54 


010142 


006204 




55 


010344 


006304 




56 


010146 


006302 




57 


010150 


010362 


003100' 
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. SBTTL ALl_OCATL CORE SPACE 
Check in for debugging breakpoint. 
SORTPl: CALL CISRTl i CHE^CK IN TO ROOT 





ALLOCATE 


AVAILABLE CORE SPACE. 




*GETBOT Rl, 


#P1 TOP 


i 


Al locate 


room for temp record 




TST 


FLDMAP i 




BEQ 


6« 


t 




MOV 


Rl> 


MAP B UP ; 




ADD 


INRLEN, Rl ' 




INC 


Rl 


i 




BIC 


#1. 


Rl 


i 


ALLOCATE 


FILE I/O BUFFERS. 


6$: 


MOV 


Rl, 


IBUFl ■> 




MOV 


Rl, 


IRPOS i 




MOV 


Rl, 


IBFEND i 




ADD 


0BUFS2,R1 




MOV 


Rl, 


IBUF2 ; 




ADD 


0BUFSZ,R1 




MOV 


Rl, 


OBUFl ■> 




ADD 


0BUFSZ,R1 




MOV 


Rl, 


0BUF2 i 




ADD 


0BUFS2,R1 


i 


SET UP RECORD LOCATION TABLE. 




MOV 


Rl, 


LSTKEY i 




ADD 


RWDLEN, Rl 




CLR 


R2 






MOV 


TOPMEM, R3 i 




SUB 


RWDLEN, R3 > 




MOV 


#LOC, R4 i 


2*: 


CMP 


Rl, 


R3 ; 




BHI 


1* 


i 




MOV 


Rl, 


<R4)+ i 




INC 


R2 






CMP 


R2, 


#MAXREC > 




BHIS 


1* 


i 




ADD 


RWDLEN, Rl > 




BR 


2« 




1*: 


MOV 


R2, 


NUMREC } 




CMP 


R2, 


#4 i 




BHIS 


5* 






XXX 


24. 


i 


5$: 


MOV 


R2, 


R5 




DEC 


R2 




3*: 


MOV 


R5, 


R3 i 




ADD 


R2, 


R3 i 




ASR 


R3 






ASL 


R3 






MOV 


R2, 


R4 i 




ASR 


R4 






ASL 


R4 






ASL 


R2 






MOV 


R3, 


FE(R2) i 



buffer if field mapping is wanted. 

IS FIELD MAPPING WANTED? 

BR IF NOT 

SAVE ADDRESS OF START OF BUFFER 

ADD LENGTH OF INPUT LOGICAL RECORDS 

BOUND UP TO WORD BOUNDARY 



INPUT BUFFER 1. 
ADDRESS OF 1ST. REC. 
FORCE SETUP OF 1ST BUFFER. 

INPUT BUFFER 2. 

OUTPUT BUFFER 1. 

OUTPUT BUFFER 2. 

BUFFER FOR LAST WINNER 



GET HIGHEST AVAILABLE MEMORY ADDRESS. 

LEAVE ROOM FOR A RECORD. 

GET ADDRESS OF LOCATION TABLE. 

IS THERE ROOM FOR ANOTHER RECORD? 

BRANCH IF NOT. 

SET ADDRESS OF RECORD. 

ALLOCATED MAX # OF RECORDS? 

BRANCH IF YES. 

MOVE ON TO NEXT RECORD. 

SAVE # OF RECORDS TO MERGE. 
CHECK FOR REASONABLE MINIMUM 

ERROR IF NOT ENOUGH CORE 



START J= 


=P-1. 




GET P. 






P+J. 






iP+J)/3 






CONVERT 


TO WORD TABLE 


INDEX 


GET J. 






J/2 






CONVERT 


TO WORD TABLE 


INDEX 


CONVERT 


J TO WORD TBL 


INDEX 



EXTERNAL NODE FLINK. 



SORTl 



SORT -- 


PHASE 1 
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ATE CORF SPACt- 












58 010154 


010462 


004540' 




MOV 


R4,FI<R2) 


INTERNAL NODE PL INK. 


59 010160 


005062 


006200 ' 




CLR 


RN(R2) 


SAY NO RUNS IN FILE YET. 


60 010164 


010262 


001440' 




MOV 


R2, LOSER (R2) 




61 010170 


006202 






ASR 


R2 




62 010172 


005302 






DEC 


R2 




63 010174 


002355 






BGE 


3* 




64 








i INITIALIZE FILE MANAGEMENT TABLES. 


65 010176 


005002 






IFMT: CLR 


R2 




66 010200 


005062 


OOOOOOS 




4*: CLR 


FILST<R2) 


FILE STARTING BLOCK # 


67 010204 


005062 


OOOOOOG 




CLR 


FILRN(R2) 


# RUNS IN FILE 


68 010210 


005062 


OOOOOOG 




CLR 


FILNB<R2) 


# BLOCKS IN FILE 


69 010214 


062702 


000002 




ADD 


#2, R2 


DONE ALL? 


70 010220 


020227 


OOOOOOG 




CMP 


R2, #MXFIL2 




71 010224 


103765 






BLO 


4* 


BR IF NOT 


72 010226 


005067 


OOOOOOG 




CLR 


CUROFL 


START OUTPUT TO FILE # 


73 010232 


005067 


177430 




CLR 


OFLINK 


, NO RUNS YET IN 1ST FILE 


74 010236 


012767 


000001 


OOOOOOG 


MOV 


#1,FILST 


, START FILE WITH CLUSTER 1 


75 010244 


012767 


000001 


OOOOOOG 


MOV 


#1,FILFL 




76 010252 


012767 


000002 


OOOOOOG 


MOV 


#2, NXTBLK 


, NEXT FREE CLUSTER 


77 010260 


016701 


OOOOOOG 




MOV 


0BUF1,R1 


-INITIALIZE OUTPUT BUFFER. 


78 010264 


010167 


OOOOOOG 




MOV 


R 1 , OBFEND 


.SET END OF OUTPUT BUFFER 


79 010270 


066767 


OOOOOOG 


OOOOOOG 


ADD 


OBUFSZ, OBFEND 




80 010276 


005021 






CLR 


<R1) + 


, ZERO FILE FLINK. 


81 010300 


005021 






CLR 


(Rl) + 


r ZERO # OF RECORDS IN BLOCK. 


82 010302 


010167 


OOOOOOG 




MOV 


R 1 , ORPOS 


, SET UP ADDRESS OF NXT OUTPUT REC 


33 010306 


105067 


177366 




CLRB 


EOFFLG 


i HAVEN'T HIT END OF FILE YET 


84 








i START INPUT 


READS 




85 010312 


005067 


OOOOOOG 




CLR 


IFPNT 


i START WITH BLOCK OF FILE 


86 010316 


032767 


OOOOOOG 


OOOOOOG 


BIT 


#RT*OX, I TYPE 


! IS THIS AN ISAM FILE? 


87 010324 


O01402 






BEQ 


1* 


, BR IF NOT 


88 010326 


005267 


OOOOOOG 




INC 


IFPNT 


i ISAM FILES START WITH BLOCK 1 


89 010332 








1*: *READ 


#FD1, IBUF2*0WCNT 


, IFPNT 


90 010512 


005067 


177132 




CLR 


RC 


i INITIALIZE MISC VALUES 


91 010516 


005067 


177124 




CLR 


RQ 




92 010522 


005067 


177124 




CLR 


RMAX 




93 010526 


005067 


177122 




CLR 


Q 





€ 

I 

i 
€ 
i 
i 

i 

i 
t 
i 
i 
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1 

3 

4 

5 

6 

7 

8 

9 
10 
II 
12 
13 
14 
15 
16 
17 

le 

19 

20 

21 

22 

23 

24 

25 O 

26 

28 

29 

30 

31 

32 O 

33 O 

34 

35 

36 

37 

38 

39 

40 

41 

42 
43 
44 
45 
46 

iM 
48 O 
49 

50 

51 

52 

53 

54 

55 

56 

57 



. SBTTL MAIN SORT ROUTINE 



10532 
10536 
10542 



10544 
10550 
10552 
10556 
10562 
10566 
10572 
10600 
10604 
10606 
10612 
10616 
10622 
10626 
10632 



10636 
10642 
10646 
10650 
10652 
10656 
10664 
10666 
10672 
10700 
10704 
10710 
10714 
10720 



10726 
10732 

10734 
10740 
10744 
10752 
10756 
10762 
10766 
10770 



016701 
020167 
001471 



005767 
001463 
016702 
005262 
016703 
052713 
016767 
016701 
160301 
010163 
162701 
060167 
005567 
004767 
005567 



062702 
020227 
103401 
005002 
010267 
026767 
101402 
000167 
016267 
016703 
010362 
010367 
005267 
016767 



005767 
001466 

016702 
016203 
016762 
010367 
016702 
016705 
010304 
066704 



177112 
177104 



176714 



176714 
OOOOOO ' 
1 76706 
176700 
OOOOOOG 
OOOOOOG 

OOOOOOG 



ENTER MAIN SORT ROUTINE 



SRI 



MOV 
CMP 
BEQ 



RCRl 
R1,RQ 
SR3 



GET CURRENT RUN NUMBER. 

DOES THIS RECORD GO IN THIS RUN? 

BRANCH IF THIS RECORD IS IN THIS RUN. 



WIND UP PROCESSING ON RUN NUMBER RC. 



177100 

OOOOOOG 

OOOOOOG 

OOOOOOG 

100000 

177070 

OOOOOOG 

000002 

000004 

OOOOOOG 

000002G 

OOOOOOG 

000002G 



000002 
OOOOOOG 



OOOOOOG 

176764 

004134 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

176722 



OOOOOOG 



TST 
BEQ 
RUNEND: MOV 
INC 
MOV 
BIS 
MOV 
MOV 
SUB 
MOV 
SUB 
ADD 
ADC 
CALL 
ADC 



RC 

ENDINI 

CUROFL, R2 

FILRN<R2) 

0BUF1,R3 

tt-'^O 100000, <R3) 

OFLINK, FLBLK 

0RP0S>R1 

R3, Rl 

Rl, 2<R3) 

#4. , Rl 

Rl. TMPCNT 

TMPC NT +2 

FLUSH 

TMPCNT+2 



176766 



176766 3*: 



176722 ENDINI: 



ADVANCE TO NEXT OUTPUT RUN 

ADD #2, R2 

CMP R2. #MXFIL2 

BLO 2* 

CLR R2 

?*: MOV R2, CURDFL 

CMP RQ, RMAX 

BLOS 3* 

JMP SI STOP 

MOV FILST(R2),0FLINK 

MOV NXTBLK, R3 

MOV R3, FILST<R2) 

MOV R3, FILFL 

INC NXTBLK 

MOV RQ, RC 



IS THIS THE INITIALIZATION RUN? 
BRANCH IF INITIALIZATION RUN. 
GET # OF CURRENT OUTPUT FILE. 
INCREMENT # OF RUNS IN THIS FILE. 
GET ADDRESS OF CURRENT OUTPUT BUFFER. 
SET END OF RUN FLAG IN BUFFER. 
LINK FORWARD TO PREV RUNS IN FILE 
CALCULATE # OF CHARS IN BUFFER 

SET # OF CHARS IN BUFFER 

SUBTRACT # CONTROL BYTES IN BUFFER 

ACCUMULATE # DATA BYTES BEING WRITTEN 

TO TEMP FILE 

WRITE OUT LAST BLK 

PROROGATE CARRY 



ADVANCE TO NEXT FILE NUMBER 
HAVE WE PASSED LAST FILE? 
BRANCH IF NOT. 
RECYCLE TO FILE # O. 

FINISHED WITH LAST RUN? 

BR IF NOT 

FINISH PHASE 1 

SAVE POINTER TO REST OF FILE 

ASSIGN IT A STARTING BLOCK 



ADVANCE RUN NUMBER 



OUTPUT TOP OF TREE. 
RUN NUMBER) 



<Q NOW POINTS TO THE CHAMPION AND RQ IS ITS 



SR3: TST RQ 

BEQ SR4 
; MOVE RECORD(Q) TO OUTPUT 



OOOOOO ' 



MOV Q, R2 

MOV L0C(R2),R3 

MOV LSTKEY, L0C<R2) 

MOV R3, LSTKEY 

MOV ORPOS, R2 

MOV OB FEND, R5 

MOV R3, R4 

ADD RECLEN, R4 



i IS THIS INITIALIZATION RUN? 
j BRANCH IF YES. 
BUFFER. 

i GET INDEX TO WINNER 

i GET ADDRESS OF WINNER RECORD 

i LAST WINNER STAYS IN 'LSTKEY' 



BUFFER 



POSITION IN OUTPUT BUFFER 
ADDR OF END OF BUFFER 
POINT TO END OF RECORD 



SORTl SORT — PI 
SORT ROUTINE 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

03 

04 

05 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

1 1 

111 

112 

113 

1 1 4 



010774 
010776 



Oil 
Oil 
Oil 
Oil 
Oil 
Oil 

on 

Oil 
Oil 

on 
oil 
Oil 
oil 



000 
004 
006 
012 
016 
022 
026 
034 
040 
044 
050 
054 
060 



011064 
011066 
011070 
011076 
011100 
011102 
011104 



Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
013 

on 
on 



no 

1 1 4 
1 20 
1 24 
126 
132 
134 
140 
144 
146 
152 
154 
160 
164 
166 
1/2 



011174 
011202 



011206 
011212 

011216 
011222 
01.1224 
on ^'30 



020205 
103432 

016701 
160102 
010261 
1 62702 
060267 
005567 
016767 
004767 
005567 
005267 
016702 
062702 
016705 

1 1 2322 
001004 
032767 
001002 
020304 
103734 
010267 



016702 
016201 
004767 
103423 
005767 
001405 
016702 
004777 
002020 
016703 
005203 
010367 
020367 
101410 
010367 
000405 



016767 
005267 



016701 
016104 

016701 
001435 
020164 
101016 



?*: CMP R2 
BLO 1 * 
OUTPUT BUFFER IS 



OOOOOOG 

000002 

000004 

OOOOOOG 

000002G 

OOOOOOG OOOOOOG 

OOOOOOG 

000002G 

OOOOOOG 

OOOOOOG 

000004 

OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 



176540 
000000 ' 
000232 

176516 

176516 
OOOOOOG 

1 76474 

1 76466 
176466 

176460 



1*: 



3*: 



4*: 



MOV 
SUB 
MOV 
SUB 
ADD 
ADC 
MOV 
CALL 
ADC 
INC 
MOV 
ADD 
MOV 
CONTINUE 
MOVE 
BNE 
BIT 
BNE 
CMP 
BLO 
MOV 



R5 iHI'l END OF BUFFER? 

; BR IF NOT 
FULL — WRITE 11 OUT 

i POINT TO BUFFER HEADER 

i CALCULATE # OF CHARS IN BUFFER 

; STORE LENGTH IN HEADER 

i SUBTRACT # CONTROL BYTES IN BUFFER 

i COUNT # DATA BYTES WRITTEN TO TEMP FILE 



OBUFl, Rl 
R1>R2 
R2, 2(R1) 
#4. , R2 
R2, TMPCNT 
TMPC NT +2 
NXTBLK, FLBLK 
FLUSH 
TMPCNT+2 
NXTBLK 
OBUFl, R2 
#4, R2 
OBFEND, R5 
MOVING RECORD 

<R3)+, <R2)+ 

3* 

#RT*VLN, I TYPE 

4* 

R3, R4 

2* 



SET FILE FLINK 

WRITE OUT THE BLOCK 

PROROGATE CARRY 

POINT TO NEXT FREE TEMP BLOCK 

START RECORD IN NEW BUFFER 

SKIP HEADER WORDS 

GET ADDR OF END OF BUFFER 

MOVE CHAR TO OUTPUT BUFFER 

BR IF NOT NULL 

ARE RECORDS VARIABLE LENGTH? 

IF NOT THEN CONTINUE MOVING 

MOVED ALL OF RECORD? 

BR IF MORE TO MOVE 

SAVE START OF NEXT RECORD POINTER 



INPUT NEW RECORD INTO POSITION LDC(Q). 



SR4: 



1*: 



MOV 


Q, R2 


MOV 


L0C(R2>, Rl 


CALL 


GETREC 


BCS 


EOF 


TST 


RC 


BEQ 


1* 


MOV 


LSTKEY, R2 


CALL 


«*COMPAR 


BGE 


SR5 


MOV 


RQ, R3 


INC 


R3 


MOV 


R3, RQ 


CMP 


R3, RMAX 


BLOS 


SR5 


MOV 


R3, RMAX 


BR 


SR5 



GET ADDRESS OF RECORD<Q) 

GET NEXT LOGICAL INPUT RECORD 

BRANCH IF END OF FILE HIT. 

INITIALIZATION RUN? 

BRANCH IF YES. 

GET ADDRESS OF LAST WINNER. 

KE Y ( Q ) : KEY ( LSTKEY ) 

BRANCH IF KEY <Q)>=--KEY (LSTKEY). 

GET RUN # OF CURRENT RECORD. 

PUT NEW RECORD IN NEXT RUN. 

5 SAVE NUMBER OF HIGHEST RUN. 



WE JUST HIT THE END OF THE INPUT FILE 



176452 176444 
176440 



176442 
003100' 



1 76424 
006200 ' 



EOF: MOV RMAX, RQ 

INC RQ 
i PREPARE TO UPDATE 
i NUMBER IS IN RCi. 
SR5: MOV Q, Rl 

MOV FE(R1),R4 
SET NEW LOSER 
SR6; 



i SET RQ TO FLUSH OUT REMAINING 
i RECORDS. 
rs TO A NEW RECORD WHOSE RUN 

i GET INDEX TO NEW RECORD. 

; INDEX 7 FATHER NODE <KNUTH'S 



'T'), 



MOV 


RQ, Rl 


BEQ 


BR 7 


CMP 


Rl, RN<R4.) 


BHI 


1* 



cm RUN # OF NEW RECORD. 

BRANCH IF INITIALIZATION RUN. 

RQ: RN<T) 

BRANCH IF NEW RECORD GOES IN NEXT RUN. 



S0RT.1 Si 

MAIN SORT 



;T PHASt 

■iAIiimr. 
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115 
il6 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 

X wcu 

133 
134 
135 
136 
137 
138 
139 
140 



011553 
01.1 23-^1 
011240 
01 J 244 
011250 
011254 
011260 



011266 
011274 
011300 
011304 
011312 

011316 
011322 
011324 
011350 

011332 
011336 
011340 

011344 
01 1352 



001031 
016401 
016101 
016703 
016302 
004777 
002016 

016701 
016467 
010164 
016703 
016467 
010364 

020427 
001403 
016404 
000732 

005767 
001402 
000167 

012767 
000167 



001440' 
000000 ' 
176404 
000000 ' 
OOOOOOG 



176360 

006200' 176352 
006200 ' 
176350 

001440' 176342 
001440' 

000002 

004540' 

176314 
177166 



BNE SR7 

MOV 

MOV 

MOV 

MOV 

CALL 

BGE 
i RECORD<Q) 

MOV 
1*: MOV 

MOV 

MOV 

MOV 

MOV 
; MOVE UP TREE 
SR7: CMP 

BEQ 

MOV 

BR 
; WE HAVE PROROGATED 
1*: TST RMAX 

BEQ 2* 

JMP SR2 
i INPUT FILE IS NULL 



LOSER <R4), Rl 
L0C<R1),R1 
Q, R3 

L0C<R3), R2 
€COMPAR 
SR7 
BECOMES THE NEW 
RQ, Rl 
RN<R4).RQ 
Rl, RN(R4) 
Q> R3 

LOSER (R4), Q 
R3, LOSER <R4) 

(T IS ADVANCED 
R4, #2 
1* 

FI(R4), R4 
SR6 

THE WINNER 



GET LOSER (T). 
0E7 LOC < LOSER < 1 > ) . 
GE1 INDEX OF NEW RECORD. 
GET LOCATION OF NEW RECORD. 
LOSER<T): Q. 

BRANCH IF LOSER ( T ) >=Q. 
LOSER AT THIS LEVEL. 



i RN ( T ) -— >RQ. 
; RQ--:>RN(T). 

; LOSER < T ) — >Gl. 
J Q — >LOSER(T). 

TO POINTER TO 

IS T POINTING 

BR IF YES 

FKT) — >T. MOVE 



NEXT HIGHER NODE) 
TO NODE 1? 



T UP TO ITS FATHER. 



RECORD TO THE TOP OF 
IS INPUT FILE NULL? 
BR IF YES 
GO PROCESS NEXT 



THE TREE. 



INPUT RECORD 



000001 176274 2*: 
177174 



MOV 
JMP 



#1, RQ 
RUNEND 



FORCE FINAL CLOSEOUT 



SORTI s:>:n 

I/O ROUTINE:: 
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1356 
1362 
1 364 
1 366 
3.370 



.1. 

2 

3 

4 

5 

6 

7 



7 
10 
11 

12 01 

13 01 

14 0.1 

15 01 

16 01 
17 
IB 
19 
20 

21 01 

22 01 

23 01 
24 
2!7 
26 

27 01 

28 01 

29 01 

30 01 
31 
32 
33 

34 01 

35 01 
36 
37 
38 

39 01 

40 01 

41 01 

42 01 
43 
44 
45 

46 01 

47 01 

48 01 
49 

50 
51 
52 011464 



105767 
001402 
000261 
000207 
010167 



176316 



176276 



SBTTL I/O ROUTINES 



GETREC is called to obtain the next logical record from the 

input file. GETREC i& responsible for reading records, 

doing record selection, doing field mapping and checking 

for end of file. 

When called, Rl must contain the address of the buffer where 

the record is to be stored. 

On return, the C--flag is set if End of file is hit. 

HAVE WE HIT END OF FILE PREVIOUSLY? 

BR IF NOT 

SIGNAL END OF FILE AGAIN 

i SAVE ADDRESS OF RECORD BUFFER 

If field mappinq is wanted, move the record to a logical buf^fer 
first. 



GETf 


?EC: 


TSTB 


EOFFLG 






BEQ 


1* 






SEC 








RETURN 




1*: 




MOV 


Rl. RECPTR 



1374 
1400 
1402 



1406 
1414 
1416 
1 424 



1426 

1432 



1434 
1442 
3444 

1150 



1452 
1156 
1 460 



53 01 

54 01 

55 01 
56 

57 01 



1 470 
1472 
1476 



005767 
001402 
016701 



026767 
001004 
026767 
001506 



004767 
103503 



032767 
001403 
121127 
001474 



005267 
001002 
005267 



005767 
001403 
005367 
000743 



OOOOOOG 
176262 

OOOOOOG 
OOOOOOG 



TST 
BEG 
MOV 



FLDMAP 
GRREAD 
MAPBUF. Rl 



IS FIELD MAPPING WANTED? 

BR IF NOT 

GET ADDRESS OF HOLDING BUFFER 



See if we have already read max allowed number of records. 



OOOOOOG GRREAD: CMP 

BNE 

OOOOOOG CMP 

BEQ 



RCNTl. MXRECl 

1* 

RCNT2. MXREC2 

GRHOF 



READ MAX ALLOWED # RECORDS? 

BR IF NOT 

CHECK HIGH ORDER PART OF NUMBER 

READ MAX # OF RECORDS — SIGNAL EOF 



Read a record from input file into buffer pointed to by Rl. 



000234 



1$: 



CALL 
BCS 



READ IN 
GREOF 



; READ A RECORD 
;BR IF END OF FILE 



Check for control-z as DIBOL end~-of-file sentinel. 



OOOOOOG OOOOOOG 
000032 



BIT 


#RT*DBL. I TYPE 


BEQ 


3* 


CMPB 


(Rl). #CTRL7 


BEQ 


GREOF 



Count number of records rPBd. 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



3*: 



INC 
BNE 
INC 



RCNTl 

2* 

RCNT2 



IS THIS A DIBOL DATA FILE? 

BR IF NOT 

IS CONTROL-Z THE 1ST CHAR IN RECORD? 

IF YES THEN THIS IS EOF 



INCREMENT LOW ORDER COUNTER 

BR IF NO OVERFLOW 

INCREMENT HIGH ORDER COUNTER 



See i f we need to skip over some records at front of file. 



?$: 



TST 
BEQ 
DEC 
BR 



SKPCNT 
GRCKEF 
SKPCNT 
GRREAD 



IS SKIPPING WANTED? 
BR IF NOT 

DEC # LEFT TO SKIP 
GO READ NEXT RECORD 



500 016700 OOOOOOG 



i See if this record contains user specified EOF character. 
GRCKEF: MOV EOFCDL. RO i DID USER SPECIFY EOF CHARACTER? 



SORT! Bt'Ul 

I/O ROUTIN:- - 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 
97 

98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
lOS 
109 
110 
111 
112 
113 
114 



011^^04 
Oil 506 
011510 
011516 
011520 
011524 
011530 
01 1 53-1 



011536 
011542 
01 1544 
011550 
011552 
011556 



01 J 560 
011566 



011572 
011576 
011600 
011604 



011610 
011614 
011616 



011630 
011632 



011636 
011640 



001414 
060100 
126760 
001007 
105267 
105267 
004767 
000442 



005767 
001406 
004767 
103003 
105067 
000713 



062/67 
005567 



005767 
001404 
004767 
016701 



005767 
001402 
004767 



032767 
001402 
004767 



00024 1 
000207 



OOOOOOG 177777 

176154 
OOOOOOG 



BEQ 


2* 


ADD 


Rl, RO 


CMPB 


EOFCHR, -1 (HO) 


BNE 


2* 


INCB 


EOFFLO 


INCB 


UEOF 


CALL 


EOFSAV 


BR 


OR EOF 



BR IF NOT 

POINT TO COLUMN WITH CHARACTER 

IS THIS EOF RECORD? 

BR IF NOT 

REMEMBER WE'VE HIT EOF 

REMEMBER THIS IS USER EOF RECORD 

SAVE THE EOF RECORD 

SIGNAL END OF FILE 



Do any required record selection. 



OOOOOOG 

002250 

OOOOOOG 



?*: 



TST 


SELADR 


BEQ 


3* 


CALL 


SELECT 


BCC 


3* 


CLRB 


UEOF 


BR 


GRREAD 



IS RECORD SELECTION WANTED? 

BR IF NOT 

SEE IF WE SHOULD INCLUDE THIS RECORD 

BR IF WE SHOULD ACCEPT 1 HE RECORD 

CLEAR USER-EOF RECORD FLAG 

GO READ NEXT RECORD 



Count number of records passed to sort. 



OOOOOl 
000002G 



OOOOOOG 

002620 
1 76062 



OOOOOOG 
002772 



OOOOOOG 3*: 



ADD 

ADC 



#1> SRTCN7 
SRTCNTH-2 



i COUNT # RECORDS SORTED 
i PROPOGATE CARRY 



Do any required field mapping. 



TST 


FLDMAP 


BEQ 


6* 


CALL 


DOMAP 


MOV 


RECPTR, Ri 



IS FIELD MAPPING WANTED? 

BR IF NOT 

DO FIELD MAPPING 

POINT TO REAL RECORD BUFFER AREA 



Insert BCD TBCord number if wanted. 



6'$. 



TST 


NUMLEN 


BEQ 


7* 


CALL 


INSNUM 



IS RECORD NUMBER WANTED? 

BR IF NOT 

INSERT RECORD NUMBER 



Strip trailing spaces from astii records. 



OOOOOOG OOOOOOG 7*: 
003060 



8*: 



BIT #RT*VLN, I TYPE 
BEQ 8* 
CALL STRIP 

This is a good record. 

CLC 
RETURN 



i SHOULD WE STRIP TRAILING SPACES? 

i BR IF NOT 

i STRIP OFF TRAILING SPACES 



; SAY NOT END OF FILE 



We just hit the end of the input file. 

See if there are more input files to process. 



Oil 642 
011646 

011650 
011654 



004767 
103403 

016701 
000640 



001536 



176016 



; TRY TO SWITCH TO NEXT INPUT FILE 
i BR IF NO MORE INPUT FILES 



GREOF: CALL NEXTIN 
BCS 1* 

i There is another input file. 

MOV RECPTR, Rl ; RECOVER RECORD BUFFER POINTER 

BR GETREC i GO READ RECORD FROM NEW INPUT FILE 

i 

i We have reached the end of the last input file. 



S0RT1 SnRT • 
I/O ROUTINE :^ 

116 

117 011656 

118 01 J 66? 

119 01.1664 
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105267 
000P61 
000207 



176016 



i Return tuith C~f)aq set. 

i 

1*: INCH EOFFLG 
SEC 
RETURN 



i REMEMBER WE HAVE HIT EOF 
; SIGNAL END OF FILE 



I 
i 
I 

I 

I 



SORT J: Bun 
J/0 ROUTIH- 
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3 
4 








5 








7 








a 


011666 


105767 


1 76006 


9 


011672 


001402 




10 


011674 


000261 




n 


011676 


000207 




12 


011700 


010246 




13 


011702 


010346 




14 


011704 


010446 




15 


011706 


010546 




16 


011710 


010146 




17 


011712 


016702 


OOOOOOG 


18 


011716 


016704 


175740 


19 


011722 


016705 


175732 


20 








21 








22 








23 


011726 


016700 


OOOOOOG 


24 


011732 


032700 


OOOOOOG 


25 


011736 


001416 




26 


011740 


032700 


OOOOOOG 


27 


011744 


001402 




28 


011746 


000167 


000656 


29 


011752 


032700 


OOOOOOG 


30 


011756 


001402 




31 


011760 


000167 


000514 


32 


011764 


032700 


OOOOOOG 


33 


011770 


001113 




34 


01 J 772 


000436 




35 


011774 


032/00 


OOOOOOG 


36 


012000 


001033 




37 


012902 


032/00 


OOOOOOG 


38 


012006 


001403 




39 


012010 


032700 


OOOOOOG 


40 


012014 


00114 5 




41 








42 








43 








44 


012016 


004767 


002530 


45 


012022 


160405 




46 


012024 


010203 




47 


012026 


020305 




48 


012030 


101402 




49 


012032 


010503 




50 


0i2''>34 


001410 




51 


012036 


160302 




52 


012040 


112421 




53 


012042 


005303 




54 


012044 


003375 




55 


012C46 


005702 




56 


012050 


001002 




57 


012^52 


000167 


000374 



ROUTINE TO GEI THE Nt-XT RECORD FROM THE INPUT STREAM. 
THE RECORD IS MOVED TO THE LOCATION POINTED TO 
BY Rl. IF AN END OF FILE IS HIT THE "C"-INDICATOR 
IS SET OTHERWISE IT IS CLEARED. 



ARE WE PAST END OF FILE? 

BR IF NOT 

SIGNAL END OF FILE 



READIN: 


TSTB 


EOFFLG i 




BEQ 


5* i 




SEC 






RETURN 




5$; 


MOV 


R2, -<3P) 




MOV 


R3, - < SP ) 




MOV 


R4,--<SP) 




MOV 


R5, ~(SP) 




MOV 


R 1 , - < SP ) 




MOV 


INRLEN>R2 i 




MOV 


IRPOS, R4 i 




MOV 


IBFEND>R5 > 


i Determine ujh 


at type of record 




MOV 


ITYPE, RO i 




BIT 


#RT*CBL> RO i 




BEQ 


1* ■> 




BIT 


#RT«OX> RO i 




BEQ 


3* ; 




JMP 


RICX i 


3*: 


BIT 


#RT*RB, RO ■' 




BEQ 


2* i 




JMP 


RICB i 


2'$: 


BIT 


#RT$OR> RO i 




BNE 


RICAR i 




BR 


RICA i 


1*: 


BIT 


#RT«CR, RO i 




BNE 


RICA i 




BIT 


#RT*F11>R0 i 




BEQ 


RIFL i 




BIT 


#RT$OS, RO i 




BNE 


RIRS i 



i 

i F 


ixed length 


input 


RIFL 


CALL 


INCNUM 


3^: 


SUB 


R4, R5 




MOV 


R2, R3 




CMP 


R3, R5 




BLOS 


1* 




MOV 


R5, R3 




BEQ 


4* 


1«: 


SUB 


R3, R2 


2*: 


MOVE 


(R4)+, 




DEC 


R3 




BGT 


2* 




TST 


R2 




BNE 


4* 




JMP 


RIEND 



( R 1 ) + 



GET DESIRED LENGTH OF INPUT RECORDS 
GET POINTER INTO CURRENT FILE BUFFER 
GET POINTER PAST END OF CURRENT BUFFER 

th i 5 is. 

GET RECORD TYPE FLAGS 

COBOL RECORD? 

BR IF NOT 

INDEXED ORGANIZATION FILE? 

BR IF NOT 

GO GET COBOL ISAM FILE RECORD 

COBOL BINARY RECORD? 

BR IF NOT 

GO HANDLE BINARY RECORD 

COBOL ASCII RELATIVE RECORD? 

BR IF YES 

COBOL ASCII SEQUENTIAL RECORD 

IS CARRIAGE-RETURN THE RECORD TERMINATOR? 

BR IF YES 

F I LES- 1 1 SEQUENT I AL?? 

NOT FILES~11 

SEQUENTIAL? 
BRANCH IF SO 



INCREMENT RECORD COUNT 

CALC # BYTES LEFT IN INPUT BUFFER 

GET # BYTES WANTED FOR RECORD 

GOT ENOUGH BYTES LEFT IN BUFFER? 

BR IF YES 

MOVE THIS MANY BYTES THIS TIME 

BR IF BUFFER EMPTY 

THIS MANY BYTES NEEDED AFTER THIS MOVE 

MOVE BYTES FROM INPUT BUFFER TO RECORD BUFFER 

NEED MORE? 

BR IF YES 

DO WE NEED TO GET MORE OUT OF NEXT BUFFER? 

BR IF YES 



SORTl Sr>;rr -- PHABF 1 HACRO V05. 01b ^fonday 06--May-S5 16:43 Page? 7~1 
I/O ROUTI^- • 

58 OiPnb.^ 004767 000726 4*: CALL RIBUf- ; READ NEW BUFFER FULL 

59 015062 103357 BCC 3* i BR IF NOT END OF FILE 

60 Oir'064 000167 000404 JMP RIEOF 'HIT END OF FILE 



S0H7I R:f<r/ 

J/0 ROUT J N.: . 



PHa3!. J MACRO VOS. 0.U' Horfdr-ij 06 -Mau"Sr5 16: 



•'^J 



f'lNoe 



2 

3 

4 

5 

6 

7 

B 

9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 

20 

21 O 

22 

23 

24 

OH 



i 2070 
12074 
12076 
12100 
12104 
12106 
12} iO 
12112 
12120 
12122 
12124 
125 30 
i 2 1 32 
12.134 
12140 
12142 
12146 
12150 
12.154 
12156 



^0 



5 01 

26 

27 O 

28 
29 
30 

31 

32 

33 O 

34 O 

35 

36 

37 



12164 
12166 
12170 



12200 
12202 
12204 
12210 
12212 
12214 
12216 



004767 
020405 
103403 
004767 
103573 
1 1 2400 
001005 
032767 
001165 
000764 
020027 
101012 
001560 
1 20027 
001417 
120027 
001752 
1 20027 
001747 
005702 
003403 
110021 
005302 
000742 



005702 
003523 
012703 
110321 
005302 
003375 
000515 



Variable lencith ASCII rf?coTds terminated by carriage-return. 



002456 
000704 

OOOOOOG OOOOOOG 

000032 

000015 
000012 
000014 



000040 



RICA: CALL 
6$: CMP 
BLO 
CALL 
BCS 
1*: MOVE 
BNE 
BIT 
BNE 
BR 
2$: CMP 
BHI 
BEQ 
CMPB 
BEQ 
CMPB 
BEQ 
CMPB 
BEQ 
4$: TST 
BLE 
MOVE 
DEC 
BR 
S*: XXX 
i Found end 
> Pad rest o 
5$: TST 
BLE 
MOV 
7S: MOVB 
DEC 
BGT 
BR 



INCiMUM 

R4> R5 

1* 

RIBUF 

RIEOF 

(R4)+, RO 

2* 

#RT«CBL, I TYPE 

RIEOF 

6* 

RO, #32 

4« 

RIEOF 

RO, #15 

5* 

RO, #12 

6« 

RO, #14 

6* 

R2 

8* 

RO, (Ri)t' 

R2 

6* 

33. 
of record, 
f buffer with 

R2 

RIEND 

# ' , R3 

R3, (Rl) + 

R2 

7* 

RI&ND 



INCREMENT RECORD COUNT 

ARE WE BEYOND END OF INPUT BUFFER? 

BR IF NOT 

READ NEXT INPUT BUFFER FULL 

BR IF END OF FILE HIT 

GET NEXT CHAR FROM INPUT BUFFER 

BR IF NOT NULL CHAR 

FILE == COBOL SEQUENTIAL ORGANIZATION? 

IF YES THEN NULL SIGNALS END OF FILE 

IGNORE NULLS OTHERWISE 

IS THIS A CONTROL CHARACTER? 

BR IF NOT 

CONTROL -Z ==> END OF FILE 

CARRIAGE -RETURN? 

BR IF GOT END OF RECORD 

LINE FEED? 

IGNORE LINE FEEDS 

FORM FEED? 

IGNORE FORM FEEDS 

ROOM IN RECORD BUFFER FOR ANOTHER CHAR? 

BR IF NOT 

MOVE CHAR TO RECORD BUFFER 

COUNT # CHARS LEFT TO GET 

KEEP LOOKING FOR END OF RECORD 

RECORD READ IS LONGER THAN INPUT BUFFER 



blanks. 



DID WE COMPLETELY FILL BUFFER? 

BR IF YES 

GET FILLER SPACE 

FILL RECORD AREA WITH BLANKS 



c 
c 

t 

€ 
f 

( 

€ 

i 

i 
< 

€ 

4 
I 
i 

4 
I 
< 

I 
I 



SORT J SDHT 
I/O ROUTINE-' 



3 



PHASE- 1 MACRO V05. 01b Holiday 06-May~85 16:43 P^ge 9 



COBOL ascii record in relative oroani zation file. 



4 


IP 220 


004767 


002326 


5 


012r'24 


020405 




6 


012226 


103403 




7 


012230 


004767 


000554 


8 


012234 


103517 




9 


012236 


105724 




10 


012240 


001014 




11 








12 


012242 


010203 




13 


01224'? 


005203 




14 


012246 


060403 




15 


01 2250 


020305 




16 


012252 


103405 




17 


012254 


160503 




18 


012256 


004767 


000526 


19 


012262 


103504 




20 


012264 


000770 




21 


012266 


010304 




22 
23 
24 


012270 


000753 




012272 


020405 




25 


012274 


103403 




26 


012276 


004767 


000506 


27 


012302 


103474 




28 


012304 


112421 




29 


012306 


005302 




30 


012310 


003370 




31 








32 


012312 


020405 




33 


012314 


103403 




34 


012316 


004767 


000466 


35 


012322 


103464 




36 


012324 


005204 




37 


012326 


000451 





RICAR: CALL 
CMP 
BLO 
CALL 
BCS 

1«: TSTB 
BNE 

i Record does 
MOV 
INC 

3*: ADD 
CMP 
BLO 
SUB 
CALL 
BCS 
BR 

24: MOV 
BR 

; Record exis 

4*: CMP 
BLO 
CALL 
BCS 

5*: MOVB 
DEC 
BGT 

i Skip carria 
CMP 
BLO 
CALL 
BCS 

6*: INC 
BR 



INCNUM 

R4,R5 

1* 

RIBUF 

RIEOF 

(R4)-+- 

4* 
not exist. Skip 

R2, R3 

R3 

R4, R3 

R3, R5 

2* 

R5, R3 

RIBUF 

RIEOF 

3* 

R3, R4 

RICAR 
t& --- Move to rec 

R4, R5 

5* 

RIBUF 

RIEOF 

<R4)+, (Rl ) + 

R2 

4* 
ge-return at end 

R4, R5 

6* 

RIBUF 

RIEOF 

R4 

RIEND 



i INCREMENT RECORD COUNTER 
i IS BUFFER EMPTY? 
; BR IF NOT 

i READ IN ANOTHER BUFFER FULL 
;BR IF EOF HIT 
; DOES RECORD EXIST? 
i BR IF YES 
up to next one. 
i GET RECORD LENGTH 
; COUNT CR AT END OF RECORD 
; GET POINTER TO START OF NEXT RECORD 
i PAST END OF CURRENT BUFFER? 
; BR IF NOT 

i COUNT # CHARS SKIPPED OVER IN THIS BUFFER 
i READ IN NEW BUFFER FULL 
i BR IF EOF HIT 
i CONTINUE SKIPPING 

; GET POINTER TO START OF NEXT RECORD 
i SEE IF THAT RECORD EXISTS 
ord buffer. 
i BUFFER EMPTY? 
i BR IF NOT 

i READ NEW BUFFER LOAD 
;BR IF EOF HIT 
i MOVE TO RECORD BUFFER 
i MOVE FULL RECORD SIZE 

of record. 
; PAST END OF BUFFER? 
; BR IF NOT 

; READ NEW BUFFER FULL 
; BR IF END OF FILE HIT 
i SKIP OVER CR 



i 

I 

f 

I 

< 

I 

I 

I 

I 

€ 
i 

i 
I 
C 
i 
I 
i 
i 
i 
4 
I 



I 

I 
I 
i 
i 
« 

4 
i 
i 
< 

c 
I 

4 

i 
i 
i 
i 
i 
i 

4 

I 



SORT! S'i;U 

i/0 ROUTi:v.- . 

1 



St 1 ^^'^CRD VOS. 0.tb Hondf^j 06--Hay-S5 16:43 PcKU-- iO 



3 






4 






5 0:l2530 






6 01P.330 


005204 




7 012332 


042704 


000001 


S 0lS'^36 


020405 




9 012:340 


103403 




10 012342 


004767 


000442 


11 012346 

12 

13 012350 


103452 




004767 


002176 


14 012354 


012403 




15 012356 


001417 




16 012360 


160302 




17 012362 


002004 




IB 012364 






19 012574 


006203 




20 012376 


020405 




21 012400 


103403 




22 012402 


004767 


000402 


23 012406 


103432 




24 012410 


012421 




25 01 24 J 2 


005303 




26 012414 

27 

28 012316 


003370 








29 012416 


005003 




30 012420 


036767 


OOOOOOG OOOOOOG 


31 012426 


001002 




32 012430 


112703 


000040 


33 012434 






34 012434 


005702 




35 012436 


003405 




36 012440 


110321 




37 012442 


005302 




38 012444 


003375 




39 012446 


000167 


000000 



FILES-ll be 
<First word 



quenti al 
contains rerord length) 



RIRS: 










INC 


R4 


J 




BIC 


#1,R4 






CMP 


R4, R5 






BLO 


4* 






CALL 


RIBUF 






BCS 


RIEOF 




; Get 


record 


control word. 




4f: 


CALL 


INCNUM 






MOV 


(R4)+. R3 






BEQ 


6* 






SUB 


R3, R2 






BGE 


1* 






XXX 


33. 




1$: 


ASR 


R3 




3«: 


CMP 


R4, R5 






BLO 


2* 






CALL 


RIBUF 






BCS 


RIEDF 




2«: 


MOV 


(R4)+, <Rl)-f- 






DEC 


R3 






BGT 


3* 




i See 


i f we 


need to pad with 


tri 


6*: 










CLR 


R3 






BIT 


RT*RB. I TYPE 






BNE 


7* 






MOVB 


# ' , R3 




7f: 










TST 


R2 






BLE 


RIFND 




5*: 


MOVB 


R3, (Rl) + 






DEC 


R2 






BGT 


5* 






JMP 


RIFND 





; ROUND R4 UP TO NEAREST WORD 

IS INPUT BUFFER EMPTY? 
BR IF NOT 

READ NEW BUFFER FULL 
BR IF END OF FILE HIT 

INCREMENT RECORD COUNTER 
GET RECORD SIZE 
BR IF RECORD LENGTH = O 

COMPARE RECORD LENGTH WITH BUFFER SIZE 
BR IF IT WILL FIT 
RECORD IS LONGER THAN BUFFER 
GET # WORDS IN RECORD 
PASSED END OF INPUT BUFFER? 
BR IF NOT 

READ NEW BUFFER FULL 
BR IF END OF FILE HIT 

MOVE WORD FROM FILE BUFFER TO RECORD BUFFER 
MORE TO MOVE? 
BR IF YES 
trailing nulls. 

R3 = NULL, FOR PADDING END 

BINARY RECORDS? 

BRANCH IF SO 

MUST BE ASCII, USE BLANK, NOT NUi. L 

DO WE NEED ANY PADDING NULLS AT END? 

BR IF NOT 

PUT IN PADDING NULLS 



SORTJ S(>H< 
I/O ROUTINc i 

1 



PHASh 1 MACRO V05. OJIt. Monday 06~May-e!5 .16:43 Page 11 



3 

4 

5 O 

6 

7 

8 

9 O 

10 

11 
12 

lv3 

14 

15 01P474 

16 012476 



124 5^' 
12454 
12460 
12462 
12464 
1 2466 
12470 
12472 



Finished qetiinci rptrnd. 



00024 1 
010467 
012601 
012605 
012604 
012603 
012602 
000207 



000261 
000766 



17^*202 



RIf-ND: 


CLC 




RIFIN: 


MOV 


R4, IRPOS 




MOV 


(SP)+, Rl 




MOV 


<BF)+, Ul> 




MOV 


<SP)+, R4 




MOV 


( SP ) +, R3 




MOV 


<SP)+, R2 




RETURN 





SIGNAL NO EOF 
SAVE POINTER INTO 



FILE BUFFER 



End of file hit. 



RIEOF: 



SEC 
BR 



RIFIN 



i SIGNAL 
; RETURN 



END OF FILE 



f 

4 

4 
I 
I 

i 

4 
< 

4 
I 
C 
4 

I 
4 

i 
i 
4 
4 

4 

i 



SQRll Sinn 

1/0 RDUilN;: ■ 



PHASF 1 MACRO V05. OJh MonoVui 0,S-iMau~S5 i6: 4: 



PoQe 12 



€ 



1 

2 
3 
4 
5 

7 
S 
9 
10 
li 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



012500 
012502 
0125O4 
012510 

012512 
012516 
012520 
012522 

012524 
012526 
012530 
012532 
012534 
012540 
012542 
012544 
012546 



012550 
012554 
012556 
012560 
012562 
012572 
012574 
012576 
012600 
012604 
012606 
012610 
012612 

012614 



0^ 



(16 



012620 
012622 
012624 
012626 



020405 
103403 
004/67 
103771 

004767 
012403 
002413 
001764 

060403 
020305 
103405 
160503 
004767 
103755 
000770 
010304 
000761 



042703 
001417 
160302 
002004 

006203 
020405 
103403 
004767 
103733 
012421 
005303 
003370 

005/02 
003715 
105021 
005302 
003375 
000711 



000300 



002034 



COBOL binary record a. 

(First word contains record-exists flag & record length) 



IS INPUT BUFFER EMPTY? 
BR IF NOT 

READ NEW BUFFER FULL 
BR IF END OF FILE HIT 



000250 



1 00000 



000204 



RICB: 


CMP 


R4, R5 




BLO 


RSBGCW 




CALL 


RIBUF 




BCS 


RIEOF 


i Get 


record 


control word. 


RSBOCW: 


CALL 


INCNUM 




MOV 


(R4)+, R3 




BLT 


RSBMOV 




BEQ 


RIEOF 


i Record is 


marked as dele 


1^: 


ADD 


R4,R3 




CMP 


R3, R5 




BLO 


2* 




SUB 


R5, R3 




CALL 


RIBUF 




BCS 


RIEOF 




BR 


1* 


2$: 


MOV 


R3, R4 




BR 


RSBGCW 


; Record exi 


sts. 


; Move 


it to 


record buffer 


RSBMOV: 


BIC 


#100000, R3 




BEQ 


6* 




SUB 


R3, R2 




BGE 


1* 




XXX 


33. 


1*: 


ABR 


R3 


3S. 


CMP 


R4, R5 




BLO 


2* 




CALL 


RIBUF 




BCS 


RIEOF 


2$; 


MOV 


(R4)+, <R1)+ 




DEC 


R3 




BGT 


3* 


; See 


if we 


need to pad wi 


6*. 


TST 


R2 




BLE 


RIEND 


S*: 


CLRB 


<R1) + 




DEC 


R2 




BGT 


5* 




BR 


RIFND 



ted. 



INCREMENT RECORD COUNTER 

GET RECORD CONTROL WORD 

BR IF RECORD EXISTS 

BR IF END OF FILE HIT 

Skip to start of next record. 

GET ADDRESS OF START OF NEXT RECORD 

BEYOND END OF CURRENT INPUT BUFFER? 

BR IF NOT 

SUBTRACT AMT IN BUFFER WE ARE SKIPPING OVER 

READ NEXT BUFFER FULL 

BR IF EOF HIT 

CONTINUE SKIPPING 

GET ADDRESS OF START OF NEXT RECORD 

GO CHECK NEXT RECORD 



; CLEAR RECORD-EXISTS FLAG 
i BR IF RECORD LENGTH = O 

i COMPARE RECORD LENGTH WITH BUFFER SIZE 
i BR IF IT WILL FIT 
i RECORD IS LONGER THAN BUFFER 
i GET # WORDS IN RECORD 
i PASSED END OF INPUT BUFFER? 
> BR IF NOT 

J READ NEW BUFFER FULL 
iBR IF END OF FILE HIT 

i MOVE WORD FROM FILE BUFFER TO RECORD BUFFER 
; MORE TO MOVE? 
i BR IF YES 
th trailing nulls. 

; DO WE NEED ANY PADDING NULLS AT END? 

i BR IF NOT 

; PUT IN PADDING NULLS 



SORTl Bl'R7 
J/0 ROUTIi>ir > 
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COBOL Indexed orqani zati on (ISAM) file record. 



3 








4 


012o30 


020405 




5 


012632 


103403 




6 


012634 


004767 


000132 


7 


0.12640 


103715 




8 








9 


0126 '12 


005724 




10 


012644 


001002 




11 


012646 


005714 




12 

13 
14 


012650 


001006 




012652 


016703 


OOOOOOG 


15 


012656 


004767 


000056 


16 


012662 


103704 




17 


012664 


000766 




18 








19 


012666 


016703 


OOOOOOG 


20 


012672 


006203 




21 


012674 


020405 




22 


012676 


103403 




23 


012700 


004767 


000066 


24 


012704 


103673 




25 


012706 


012421 




26 


012710 


005303 




27 


012712 


003370 




28 








29 


012714 


016703 


OOOOOOG 


30 


012720 


166703 


OOOOOOG 


31 


012724 


001402 




32 


012726 


004767 


000006 


33 








34 
35 
36 


012732 


004767 


001614 


012736 


000645 





RICX: CMP 

BLO 

CALL 

BCS 
; See if recor 
3*: TST 

BNE 

TST 

BNE 
i Record is de 
4*: MOV 

CALL 

BCS 

BR 
; Record exist 
RCXE: MOV 

ASR 
3*: CMP 

BLO 

CALL 

BCS 
2*: MOV 

DEC 

BGT 
; Skip over an 

MOV 

SUB 

BEQ 

CALL 
; Increment re 
4*: CALL 
i Finished 

BR 



Skip to 



R4, Rf> 

3* 

RDFILE 

RIEOF 
d exists 

(R4) + 

4* 

<R4) 

RCXE 
letfd. 

ISMARS, R3 

SKPXRC 

RIEDF 

3$ 
B. Move it 

INRLEN, R3 

R3 

R4, R5 

2* 

RDFILE 

RIEOF 

(R4)+, <R1 ) + 

R3 

3* 
If accession n 
' ISMARS, R3 

INRLEN, R3 

4$ 

SKPXRC 
cord counter. 
INCNUM 

RIEND 



to 



i IS BUFFER EMPTY? 

.: BR IF NOT 

; READ IN NEW BUFFER FULL 

;BR IF END OF INPUT HIT 

i TEST RECORD CONTROL WORD 
i BR IF RECORD IS DELETED 
. jETQj poR END OF DELETE CHAIN 
;BR IF RECORD EXISTS 
start of next record. 
; GET LENGTH OF RECORD TO SKIP OVER 
iSKIP OVER THE RECORD 
; BR IF END OF INPUT HIT 
i GO CHECK NEXT RECORD 
internal record buffe>r. 

i GET LOGICAL RECORD LENGTH < BYTES) 
; CONVERT TO # WORDS 
; IS INPUT BUFFER EMPTYT' 
; BR IF NOT 

; READ IN A NEW BUFFER FULL 
;BR IF END OF FILE HIT 
i MOVE RECORD TO INTERNAL BUFFER 
; MORE 10 MOVE?' 
; BR IF YES 
umbers at end of record. 

;GET TOTAL RECORD LENGTH 
i SUBTRACT LOGICAL RECORD LENGTH 
; BR IF NO ACCESSION NUMBERS 
iSKIP OVER ACCESSION NUMBERS 

i INCREMENT RECORD COUNTER 



soRTi sn:n 
1/0 ROUii-:- . 
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i 
i 



3 




4 




5 




a 




7 




8 




9 




10 




11 




i;;' 




13 




14 012/40 


010346 


15 Ol;;:»742 


060403 


16 012744 


020305 


17 012/46 


103405 


IS 012750 


160503 


19 012752 


004767 000014 


20 012756 


103403 


21 012760 


000770 


22 012762 


010304 


23 012/64 


000241 


24 012766 


012603 


25 012770 


000207 



SKPXRC is called to skip over a part of an ISAM record. 

Inputs: 
R3 = Number of byte& to skip over. 

R4 = Pointer to start of data to be skipped over. 
R5 = Pointer to end of buffer. 

Outputs: 
R4 = Pointer to start of data following skipped data. 
R5 =■ Pointer to end of buffer. 
C~flag set on return if end of input hit. 



SKPXR 


C: MOV 


R3, "(BP) 


1$: 


ADD 


R4, R3 ; 




CMP 


R3, R5 ■> 




BLO 


2* i 




SUB 


R5, R3 i 




CALL 


RDFILE i 




BCS 


4* i 




BR 


1* * 


2$: 


MOV 
CLC 


R3, R4 i 


4*: 


MOV 

RETURN 


( SP ) +, R3 



POINT TO START OF NEXT RECORD 

IS IT PAST END OF THE BUFFER? 

BR IF NOT 

SUBTRACT AMT WE ARE SKIPPING OVER IN THIS BUFFER 

READ IN NEW BUFFER FULL 

BR IF END OF INPUT HIT 

SEE IF WE HAVE REACHED DESIRED POINT 

RETURN RECORD POINTER IN R4 

SIGNAL SUCCESS 



SORTl SORT 
I/O ROUT I ME > 
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1 



3 








4 








5 








v'. 








7 








S 








9 








10 








11 


01277:? 


004767 


000012 


12 


012/76 


1 03003 




13 








lA 








15 


013000 


005003 




16 


01300? 


004767 


000376 


17 


013006 


000207 





RDFILE is called to read the next buffer full of data. 

If end of File is hit, NEXTIN is called to try to switch to the 

next input file. 

Outputs: 
R4 = Pointer to start of buffer read. 
R5 = Pointer to end of buffer. 
C-flag set on return if end of all input was hit. 



RDFILE: CALL RIBUF 
BCC 1* 

i Hit end of file. 

; Call NEXTIN to switch 

CLR R3 

CALL NEXTIN 

1*: RETURN 



i TRY TO READ NEXT BUFFER FULL 
i BR IF GOT ONE 

to next input file. 

; ZERO ANY REMAINING SKIP BYTES 

; TRY TO SWITCH TO NEXT INPUT FILE 



SORT} S;>.'<f 

1/0 ROUTI>i- 
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nq< 



16 



1 



I 
I 



3 








4 








5 








6 


013010 






7 


013124 


103006 




S 


013126 


105700 




9 


013:! 30 


001404 




10 


01 3 '32 






11 








12 


013-^42 






13 


013142 


042700 


000377 


14 


013146 


006300 




15 


013150 


010067 


174510 


16 


013154 


066767 


0000000 OOOOOOG 


17 


013162 


016704 


174456 


18 


013166 


016767 


174450 174450 


19 


013,174 


010467 


174442 


20 


013200 


016705 


174460 


21 


013204 


001475 




22 


015206 


060405 




23 


013210 


010567 


174444 


24 


013214 






25 


013374 


00024 1 




26 
37 
28 


013376 


000207 




013400 


000261 




29 


0134O2 


000775 





Read the ne:<t input buffer full 
On return f?4 = Address of &tart 
The c~flag is set on returii if 



6*: 



1* 
2$ 

> 

3$ 



BUF: *WAIT 


#FD1 i 


BCC 


6* i 


TSTB 


RO > 


BEQ 


6« i 


XXX 


14. i 


Switch buffers ond start next 


BIC 


#377, RO i 


ASL 


RO i 


MOV 


RO, INRDSZ i 


ADD 


BLKFC, IFPNT ; 


MOV 


IBUF2, R4 ; 


MOV 


IBUFl, IBUF2 i 


MOV 


R4, IBUFl 


MOV 


INRDSZ, R 5 


BEQ 


3* ; 


ADD 


R4,R5 i 


MOV 


R5, IBFEND > 


: *READ 


#FD1, IBUF2, OWCNT, 


CLC 




RETURN 




End of file 


hit. 


: SEC 


i 


BR 


9* 



t of 


buffer, R5 


= 


Address 


of 


end 


end 


of file is 


hit. 








WAIT 


FOR PREVIOUS 


READ 


TO 


FINISH 


BR IF 


NO ERROR 












REAL 


ERROR? 












BR IF 


NOT 












ERROR 


ON READ 












read. 















of buffer. 



CLEAR GARBAGE 

CVT # WORDS READ TO # BYTES READ 

SAVE # BYTES ACQUIRED BY THIS READ 

ADVANCE FILE BLOCK # 

ADDRESS OF BUFFER WE JUST READ INTO 

BUFFER WE WILL START NEW READ INTO 

GET # BYTES READ BY LAST READ 

BR IF END OF FILE HIT 

GET ADDRESS PAST END OF BUFFER 

SAVE ADDRESS OF END OF BUFFER 

IFPNT 

SIGNAL NO END OF FILE 



SIGNAL END OF FILE 



I/O ROUT I 'i- . 
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1 



3 






4 






l> 






6 






7 






8 013404 






9 






10 013410 






a 






12 013456 


016702 


0000000 


13 013462 


012201 




14 013464 


001546 




15 013466 


010267 


0000000 


16 013172 


011102 




17 013474 


005712 




IS 013476 


001541 




19 






20 






21 






22 






23 013:700 






24 






25 






26 






27 013':.'64 


005067 


OOOOOOG 


28 013t:>70 


105067 


174104 


29 013t.>74 






30 013754 


004767 


177030 


31 013760 


010467 


1 73676 


32 013764 


010567 


173670 


33 013770 


016767 


OOOOOOG OOOOOOG 


34 






35 013776 


00024 1 




36 oi4roo 


000404 




37 






38 






39 






40 014002 


162767 


000002 OOOOOOG 


41 014010 


000261 




42 0.!4012 






43 014016 


000207 





NEXTIN is called when the end oF an input file is reached to try to 
switch to thf^ next input file. 

If there is another input file, it is opened and the C-flag is cleared 
on return. F<4 = Address of buffer start, R5 = Address of buffer end. 
If there are no more input files the C-flag is set on return. 



input file. 

; R2 -> TABLE OF -> SPC BLOCKS 
iRl -> NEXT FILE SPEC FOR INPUT 
iEXIT IF NULL POINTER 
i SAVE ~> TABLE ENTRY ~> NEXT INPUT 
J R2 -> REAL FILE SPECIFICATION 
J CHECK 1ST WORD OF FILE NAME 
iEXIT ON BLANK NAME 



NEXTIN: PUSH 




<:r 1 , R2> 


; Close last 


input file. 


*KEEP 




#FI)1 


; See if there 


is another 


MOV 




CUROAV, R2 


MOV 




<R2)+, Rl 


BEQ 




9« 


MOV 




R2, CURSAV 


MOV 




<R1),R2 


TST 




(R2) 


BEQ 




9* 


; There is ano 


ther input 


j Open it. 







FILE SPEC 



file. 



*REOPEN #FD1, Rl 



Start reads from new file. 



1*: 



CLR 


IFPNT 


CLRB 


EOFFLO 


*READ 


#FD1, IBUF2, OWCNT 


CALL 


RIBUF 


MOV 


R4, IRPOS 


MOV 


R5, IBFEND 


MOV 


SKPVAL, SKPCNT 



Return with C-flag cleared. 
CLC 
BR 1 0* 



; REOPEN NEXT FILE 



START WITH BLOCK O OF FILE 

NO EOF YET 

IFPNT 

START NEXT READ-AHEAD AND GET BUFFER POINTERS 

POINTER TO START OF BUFFER 

POINTER TO END OF BUFFER 

RESET RECORD-SKIP COUNTER 

SIGNAL ANOTHER FILE AVAILABLE 



No more input files. Return with C-flag set. 



10*: 



SUB 


#2, CURSAV 


SEC 




POP 


<CR2, Rl> 


RETURN 





; BACKUP FILE POINTER 

; SIGNAL NO MORE FILES AVAILABLE 



SORTl s;=.f} 
J/0 ROUT 3: ;'•;■•. 

1 

2 
3 
4 
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7 
8 
9 O 

10 

11 O 

12 O 

13 

14 

15 
i6 
17 
18 

19 

20 

21 

22 

23 O 

24 O 

25 
26 
27 
28 

29 

30 O 

31 O 
32 
33 
34 

35 

36 

37 

38 

39 O 
40 
41 
42 

43 

44 

45 

46 
47 

40 
49 

50 

51 O 

52 

53 

54 

55 

56 

57 



14020 
14024 
14026 
14050 
14032 
14034 
14040 



14046 
14052 
14056 
14060 
14064 
14066 
1 4072 



14074 
14100 
14106 



1411? 
14116 
14122 
14124 
14130 



14132 
14136 
14142 
1 4 1 46 



14150 
14154 
14 3 60 
14164 
14172 
14174 
14200 
1420'? 



010167 
010246 
010346 
010446 
010546 
016705 
012767 



116500 
020027 
001434 
020027 
001422 
020027 
001407 



105177 
142777 
000167 



1 1 7700 
005267 
005100 
140077 
000766 



1 1 7700 
005267 
1 50077 
000757 



016701 
066501 
016502 
1 32765 
001002 
066702 
016503 
116500 



SELECT is called to detrrmine if the» current record should be 

included in the f>ort. 

When called, Rl must point to the start of the buffer containing 

the record. 

On return, the C~flag is set if the record is to be rejected. 



173650 



OOOOOOG 
007707' 173630 



OOOOOOG 
0000000 



SELEC1 : MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



Rl, SELREC 
R2, -(SP) 
R3, -<SP) 
R4, -(SP) 

R5, -<3P) 
SEl.ADR, R5 



i REMEMBER ADDRESS OF BUFFER 



; POINT TO 1ST SELECT CONTROL BLOCK 



#LSTKTP, LSTACK ;IN1T LOGIC STACK 
Interpret operation for next select control block. 



OOOOOOG 
OOOOOOG 



SLJNTP: MOVE 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 



S*DPR<R5>, RO 

RO, #SO*CMP 

SLCMP 

RO, #SO*DR 

SLOR 

RO, #SOf AND 

SLAND 



Perform logical NOT function 



173576 
000376 
000212 



173560 
173554 

173546 



173570 



SLNOT: COMB 
BICB 
SLvlNXO: JMP 



©LSTACK 
#376, €!LSTACK 
SLNXOP 



GET NEXT OPERATION FUNCTION CODE 

FIELD COMPARISION? 

BR IF YES 

LOGICAL "OR"? 

BR IF YES 

LOGICAL AND? 

BR IF YES 



i COMPLEMENT LAST LOGIC VALUE 
i CLEAR ALL BUT LOW ORDER BIT 



Perform logical AND operation. 
SLAND: 



MOVB 


©LSTACK, RO 


INC 


LSTACK 


COM 


RO 


BICB 


RO, ©LSTACK 


BR 


SLJNXO 



173540 
173534 
1 73530 



173520 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

173474 

OOOOOOG 

OOOOOOG 



Perform logical OR operation. 

SLOR: MOVB SLSTACK, RO 

INC LS1ACK 

BISB RO, SLSTACK 

BR SLviNXD 

Perform field comparison. 

SLCMP: 



GET LOGICAL VALUE ON TOP OF STACK 
POP STACK 

PERFORM LOGICAL AND OPERATION WITH 
LOGICAL VALUE NEXT LOWER ON THE STACK 
GO PROCESS NEXT CONTROL BLOCK 



GET LOGICAL VALUE ON TOP OF STACK 

POP STACK 

OR VALUE WITH THAT NEXT LOWER ON STACK 



1«: 



MOV 

ADD 

MOV 

BITS 

BNE 

ADD 

MOV 

MOVB 



SELREC, Rl 
S*P0S1(R5), Rl 
S*P0S2<R5),R2 



POINT TO BUFFER WITH RECORD 
POINT TO FIELD WITHIN RECORD 
POINT TO 2ND FIELD 



#SF$LIT, 5*FLG<R5>; IS 2ND FIELD A LITERAL OR ANOTHER FIELD? 



1* 

SELREC, R2 
S«SIZ1<R5), R3 
S*TYP<R5), RO 



BR IF IT IS A LITERAL 

GET ADDRESS OF 2ND FIELD WITHIN RE-CORD 

GET SIZE OF FIELD 

GET DATA TYPE CODE 



BORTJ. ShHl 
I/O ROUTINE 
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58 
59 
60 
61 

63 

64 

65 

66 

6? 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

SI 

82 

83 

84 

S5 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

1 06 

107 

108 

109 

110 

111 

1 1 2 

1 1 3 

114 



01 '1210 
014214 
014216 

014220 
014224 

014226 
011232 



014236 
014242 
01424<? 
014246 
014252 
014254 
014256 
01^262 

014264 
014270 
014272 
014276 
01 4202 

01 '5 30-1 
014210 
014212 
014316 



014324 
014230 
014332 



014236 
014242 

014244 
014246 



014350 
014252 
014254 
014256 
014260 
014262 
i 4266 



004770 
001407 
003003 

012703 
000404 

012703 
000401 



014234 005003 



116502 
030203 
001404 
032702 
001414 
000403 
032702 
001010 

105767 
001425 
005367 
105077 
000410 

105767 
001417 
005v367 
1 1 2777 



016505 
001402 
000167 



105777 
001002 

000261 
000401 

00024 1 
012605 
012604 
012603 
012602 
016701 
000207 



014370' 



OOOOOOG 



OOOOOOG 



6*: 



i Se t 



Set 



3*: 



OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 

1 73400 
1 73374 



OOOOOOG 

1 73360 

000001 173352 



OOOOOOG 
177510 



; Set 

2$: 

; Mow 

4$: 



5*: 

> Resu 
SLFALS: 



; Resu 
SLTRUE: 



CALL 

BEQ 

BGT 
resul t 

MOV 

BR 
result 

MOV 

BR 
result 

CLR 
compar 

MOVE 

BIT 

BEQ 

BIT 

BEQ 

BR 

BIT 

BNE 
It of 

TSTB 

BEQ 

DEC 

CLRB 

BR 
It of 

TSTB 

BEQ 

DEC 

MOVB 



©SELVEC<RO) 

2* 

3* 
code for lst<2nc 

#BT*LO, R3 

41i 
code foT lst>2nc 

#BT$HI,R3 

4* 
rode for l&t=2nc 

R3 
e result of comparis 

S$BR(R5).R2 

R2; R3 

5* 

#BT*REV, R2 

SLTRUE 

SLFALS 

#BT*REV, R2 

SLTRUE 
comparison is false 

ORFLG 

SLREJT 

LSTACK 

C<*LSTACK 



iDO FIELD COMPARISON 
iBR IF FIELD ARE EQUAL 
;BR IF 1ST FIELD > 2ND 

} SET LOW CODE 



; SET HIGH CODE 



NEITHER > OR < 

on with type of result that means TRUE 

GET TRUE TYPE CODE 

COMPARE WITH ACTUAL RESULT OF COMPARISON 

BR IF THEY DON'T MATCH < NORMALLY FALSE) 

SHOULD WE REVERSE LOGIC VALUE? 

BR IF NOT (RESULT IS TRUE) 

RESULT IS FALSE 

SHOULD WE REVERSE LOGIC VALUE? 

BR IF YES (RESULT IS TRUE) 

ARE THERE ANY "OR" OPERATIONS IN EXPRESSION? 

IF NOT THEN REJECT RECORD IMMEDIATELY 

PUSH "FALSE" VALUE ON LOGIC STACK 
Or==>FALSE 



5LNX0P 



compari son 
ANDFLG 
SLACPT 
LSTACK 
#1, ©LSTACK 



is true. 



ARE THERE ANY AND OPERATIONS IN EXPRESSION? 
IF NOT THEN ACCEPT RECORD IMMEDIATELY 
PUSH "TRUE" VALUE ON STACK 
1==>TRUE 



Move on to next select control block. 



SLNXOP: MOV 
BEQ 
JMP 



S*LINK(R5),R5 

1* 

SLINTP 



CHAIN FORWARD 

BR IF HIT END OF EXPRESSION 

GO INTERPRET OPERATION CODE 



We have finished last logical operation. 

Result on top of stack represents final value of expression. 



1 73334 



1*: 



; IS RESULT TRUE OR FALSE? 
; TRUE - - ACCEPT RECORD 

i SIGNAL RECORD REJECTION 



i SIGNAL RECORD ACCEPTANCE 



1 73306 



TSTB €>LSTACK 

BNE SLACPT 
i Reject record. 
SLREJT: SEC 

BR SLRTN 
i Accept record. 
SLACPT: CLC 
SLRTN: MOV <SP)+, Rr> 

MOV (SP)+, R4 

MOV (SP)+, R3 

MOV < SP ) +, R2 

MOV SELRECRl 

RETURN 

Jump vector used by SELECT to call proper field comparison routine. 



SORT! 


BHRT • 


PiiASF- 1 


I/O ROUTIi'^N 




115 


014370 


014412' 


116 


01437 2 


0000000 


117 


014374 


OOOOOO 


118 


014376 


OOOOOOG 


119 


014400 


OOOOOOG 


120 


014402 


OOOOOOG 


121 


01440<? 


OOOOOOG 


122 


014406 


OOOOOOG 


123 


014410 


OOOOOOG 



MACRO V05. 01 b 



{jndtUi 06- 


•Hay -85 


16: 43 


SEIVEC: 


. WORD 


KYASCI 




. WORD 


KYCOMP 




. WORD 







. WORD 


K YD ATE 




. WORD 


KYBIN 




. WORD 


KYD.TS 




. WORD 


KYUCA 




. WORD 


KYLSS 




. WORD 


KYTSS 



PiM,(:. 13-2 



FT^C 
FT*B 
FT*U 
FT*T 
FT*F 
FT*D 
FT* A 
FT* I 
FT*J 



ASCII CHARACTERS 
SIGNED BINARY INTEGER 
UNSIGNED BINARY INTEGER 
DATE (MMDDYY) 
FLOATING 
DIBOL INTEGER 
UPPER CASE ASCII 
LEADING SEPARATE SIGN 
TRAILING SEPARATE SIGN 



4 
i 



SORTi 


S!W1 


PHASF 


I/O ROUT I HI- > 




.1 
2 






3 






4 






S 






6 






7 






8 


014412 


122122 


9 


014414 


001002 


10 


014416 


005303 


11 


014420 


003374 


12 


014422 


000207 
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KYASCI is called to compare two a&cii character strings. 
When called, Ri must point to the 1st string and R2 must point 
to the 2nd string. R3 must contain the number of characters. 
On return., the conditon code is set for BHI/BLD/BEQ test. 



KYASCI: 



1$: 



CMPB 

BNE 

DEC 

BGT 

RETURN 



(Rl )+, (R2) + 

1* 

R3 

KYASCI 



; COMPARE CHARACTERS 

; BR IF NOT EQUAL 

;MORE TO CHECK? 

; BR IF YES 

,■ RETURN WITH CONDITION CODE SET 






soRTi s;i;n 
1/0 fKJUT i:i • 

1 
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3 








4 








5 








S 








7 








Ei 








9 


014424 


010146 




10 


014426 


010246 




11 


014430 


010346 




12 
13 
14 


014432 


010446 










15 








16 


014434 


012700 


000040 


17 


014440 


032767 


OOOOOOG 


18 


01 ''S 446 


001401 




19 


0144 50 


105000 




20 


014452 


016703 


OOOOOOG 


21 


014456 


016702 


173210 


22 


014462 


110022 




23 


014464 


005303 




24 


014466 


001375 




25 








26 








27 








28 


014470 


016704 


OOOOOOG 


29 








30 


01''! 4 74 


016401 


OOOOOOG 


31 


014500 


066701 


173164 


32 


011504 


016402 


OOOOOOG 


33 


014510 


066702 


173156 


34 


014514 


016403 


OOOOOOG 


35 


014520 


112122 




36 


014522 


005303 




37 


01452'? 


003375 




33 








39 


014 526 


162704 


OOOOOOG 


40 


014532 


020467 


OOOOOOG 


41 


014536 


103356 




42 








43 








44 








45 


014540 


012604 




46 


014542 


012603 




47 


014544 


012602 




48 


014546 


012601 




49 


014550 


000207 






DOMAP : 



MOV 
MOV 
MOV 
MOV 



R 1 , " ( SP ) 
R2, iSP) 
R3, --<SP) 
R4, -<SP) 



Blank or null fill the result buffer. 



1$: 



?*: 



MOV # ' , RO 

BIT #RT*RB> ITYPE 

BEQ 1* 

CLRB RO 

MOV RECLEN, R3 

MOV RECPTR, R2 

MOVE R0> <R2)+ 

DEC R3 

BNE 2* 



ASSUME SPACE FILL WANTED 

IS FILE RECORDING MODE BINARY^-- 

BR IF ASCII 

NULL FILL 

GET LENGTH OF RESULT BUFFE 

POINT TO RESULT BUFFER 

FILL WITH SPACES OR NULLS 

COUNT # BYTES MOVED 

BR IF MORE TO DO 



Now move source fields to destination record. 



MOV FLDMAP, R4 

; Move next field. 

MAPNOV: MOV MfPOSl <R4 ) . Rl 
ADD MAPBUF, Rl 
MOV M«P0S2(R4).R2 
ADD RECPTR, R2 
MOV M*SIZE(R4).R3 

4*: MOVE (Rl)+, (R2>+ 
DEC R3 
BGT 4* 

; Move on to ne.xt map field d 

5«: SUB #M$*SZ.R4 
CMP R4, NAPEND 
BHIS MAPMOV 

Mapping is finished 



; POINT TO 1ST MAP CONTROL BLOCK 

GET POSITION OF SOURCE FIELD 
GET ABSOLUTE ADDRESS 
GET POSITION OF DESTINATION FIELD 
GET ABSOLUTE ADDRESS 
GET # BYTES TO MOVE 
MOVE THE FIELD 
MORE TO MOVE? 
BR IF YES 
escriptor. 

POINT TO NEXT DESCRIPTOR 

DONE ALL? 

BR IF MORE TO DO 



MAPFIN: 



MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, R4 
<BF)+, R3 
(SP.> f, R2 
(SP)+, Rl 



I/O 



ROUT I -i 
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INCNUM is called to increment tht- BCD record number counter. 



3 








A 


014552 


005767 


OOOOOOG 


b 


0.14 556 


001415 




6 


0145S0 


010146 




7 


014 562 


012701 


0000 loe 


8 


014 566 


114100 




9 


014570 


005200 




10 


014572 


120027 


000072 


11 


014576 


103403 




12 


014600 


1127U 


000060 


13 


014604 


000770 




14 


014606 


110011 




15 


014610 


012601 




16 


014612 


000207 




17 








IS 








19 








20 








21 








22 








23 








2A 








25 








26 


014614 


010146 




27 


014616 


010246 




28 


014620 


010346 




29 


014622 


016701 


173044 


30 


014626 


066701 


OOOOOOG 


31 


014632 


016703 


OOOOOOG 


32 


014636 


060301 




33 


014640 


012702 


00001 OG 


34 


Ot'1644 


010300 




35 


014646 


020027 


000010 


36 


014652 


101402 




37 


014654 


012700 


000010 


38 


014660 


160003 




39 


014662 


114241 




40 


014664 


005300 




41 


014666 


003375 




42 


014670 


005703 




43 


014672 


001405 




44 


014674 


112700 


000060 


45 


014700 


110041 




46 


014702 


005303 




47 


014704 


003375 




48 


014/06 


012603 




49 


014/10 


012602 




50 


014712 


012601 




51 


014714 


000207 





INCMUM: TST 
BEQ 



?*: 



1*: 
9*: 



MOV 

MOV 

MOVE 

INC 

CMPJ3 

BLO 

MDVB 

BR 

MOVB 

MOV 

RETURN 



NUMLEN 

9* 

R 1 , - < SP ) 

#NUHBUF+S. .Rl 

--(Rl), RO 

RO 

R0> #72 

1* 

#'0, (Rl) 

2* 

RO, (Rl) 

<SP)+> Rl 



} IS RECORD NUMBERING WANTED? 
;GEr OUT FAST IF NOT 

POINT PAST END OF NUMBER 

GET A DIGIT 

INCREMENT IT 

DID WE JUST INCREMENT PAST 9? 

BR IF NOT 

REPLACE DIGIT WITH ZERO 

AND GO INCREMENT NEXT DIGIT TO LEFT 

INSERT INCREMENTED DIGIT 



INSNUM is 

Inputs: 
RECPTR = 
NUMCOL ■■ 
NUMLEN : 
NUMBUF : 



called to inst'rt the BCD record number into the current record. 



Pointer to &tart o 
Column <byte) numb 
Number of columns 
Buffer where 8 dig 



f current record. 

er where number insert is to begin 

to be used by number. 

it BCD number is stored. 



INSNUM: 



1«: 
2$: 



3*: 



4$: 



MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

ADD 

MOV 

MOV 

CMP 

BLOS 

MOV 

SUB 

MOVB 

DEC 

BGT 

TST 

BEQ 

MOVB 

MOVB 

DEC 

BGT 

MOV 

MOV 

MOV 

RETURN 



Rl, 
R2, 



(SP) 



R3, -(SP) 

RECPTR, Rl 

NUMCOL, Rl 

NUMLEN, R3 

R3, Rl 

#NUMBUF+S. , 

R3, RO 

RO, #S. 

1* 

#8. , RO 

RO, R3 

--(R2), -(Rl) 

RO 

2* 

R3 

4* 

# 'O, RO 

RO, -(Rl) 

R3 

3* 

(SP)+, R3 

( SP ) +, R2 

( SP ) +, R 1 



R2 



ADDRESS OF START OF RECORD 

ADDRESS OF START OF NUMBER INSERT AREA 

LENGTH OF NUMBER FIELD 

ADDRESS PAST END OF NUMBER INSERT AREA 

POINT PAST END OF NUMBER COUNTER FIELD 

GET DESIRED NUMBER LENGTH 

ONLY GOT 8 DIGITS IN BUFFER 

BR IF OK 

ONLY MOVE 8 DIGITS 

# FILLER ZEROES NEEDED 

MOVE RECORD # TO RECORD 



DO WE NEED TO INSERT EXTRA ZEROS 

BR IF NOT 

GET ZERO CHARACTER 

INSERT FILLER ZEROES 



SORT! S-'fin 
I/O ROUTINf- 

1 
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STRIP is called to strip trailing spaces off the ends of ascii records. 



4 








5 








6 








7 


014716 


010146 




8 


014/20 


010246 




9 


014/r'? 


016701 


172744 


10 


01 07 £'6 


016702 


OOOOOOG 


11 


01473.? 


060201 




13 


014734 


1 1 2700 


000040 


13 


014740 


124100 




14 


014742 


001003 




15 


014-44 


105011 




16 


014/46 


005302 




17 


014750 


003373 




18 


014752 


012602 




19 


014-54 


012601 




20 


0147'?6 


000207 





Inputs: 
RECPTR 
RECLEN 



Address of start of current record. 
Length of current record. 



STRIP: 



1*: 



?«: 



MOV 

MOV 

MOV 

MOV 

ADD 

MOVE 

CMPB 

BNE 

CLRB 

DEC 

BGT 

MOV 

MOV 

RETURN 



R 1 , - ( GP ) 

R2, ~(BP) 

RECPTR> Rl 

RECLEN, R2 

R2, Rl 

# ' , RO 

-<R1), RO 

2* 

(Rl ) 

R2 

1* 

< SP ) *-, R2 

(SP)+, Rl 



GET ADDRESS OF FRONT OF RECORD 

GET LENGTH OF RECORD 

GET ADDRESS OF END OF RECORD 

GE7 SPACE CHAR FOR COMPARISON 

IS NEXT CHAR A SPACE? 

QUIT IF NOT 

REPLACE WITH A NULL 

MORE TO CHECK? 

BR IF YES 



t 
f 
< 

I 
t 

f 

€ 
t 
t 
t 
I 

i 

i 

I 
I 

i 



SORT! S^fRT 
I/O ROUTI>i- ^ 
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.1 






3 






4 






fj 






6 






7 






a 014760 


010146 




9 014762 


010346 




10 014 -'64 


010446 




11 014766 


016703 


OOOOOOG 


12 014772 


016704 


ooooooe 


13 014/76 


112124 




14 015000 


001O04 




15 0150O2 


032767 


OOOOOOG OOOOOOG 


16 015010 


001002 




17 015012 


005303 




IS 015014 


003370 




19 015016 


012604 




20 015020 


012603 




21 015022 


012601 




22 015024 


000207 





EOFSAV is called to save a usf?r EOF record in a holding buffer 
so that it can be ujritte?n to the end of the output file. 
When called Rl must contain the address of the buffer containirig 
the EOF record. 



EOFSAV: 



1*: 



2$: 



9*: 



MOV 


R 1 , •- ( SP ) 


MOV 


R3> -(3P> 


MOV 


R4, -<SP) 


MOV 


RECLEN. R3 


MOV 


EOFBUF, R4 


MOVE 


(Rl)+, (R4)"i- 


BNE 


2$ 


BIT 


#RT*VLN. I TYPE 


BNE 


9* 


DEC 


R3 


BGT 


1* 


MOV 


(SP)+, R4 


MOV 


(SF)+, R3 


MOV 


< SP ) *-, R 1 


RETURN 





GET LENGTH OF RECORD 

GET ADDRESS OF EOF HOLDING BUFFER 

MOVE RECORD TO HOLDING BUFFER 

BR IF NON-NULL CHARACTER 

IS THIS A VARIABLE LENGTH RECORD? 

BR IF YES — WE JUST HIT END OF IT 

NEED TO MOVE MORE? 

BR IF YES 



S0R7 1 b; !.n 

J/O ROUT IN. A • 

1 
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PASSl TERMIiMATION ROUTINE. 



/ 
S 
9 
10 
11 
12 
13 
14 
15 



015026 
01503? 
015036 
015042 
015046 



016703 
062703 
010367 
004767 
000167 



015054 
015054 
OOOOOl 



OOOOOOS 

000002 

OOCOOOG 

OOOOOOG 

OOOOOOG 



SI STOP: 


MOV 


NXTBLK, R3 




ADD 


#2, R3 




MOV 


R3, NXTBLK 




CALL 


OUTWRT 




JMP 


PI TERM 


i 

PI TOP 


~. 


. <"2 


PISIZ 


= 


PITOP-PIBASE 



END 



; GET NXT BLOCK #. 

; LEAVE A LITTLE EXTRA ROOM. 

; WRITE TO LAST BLK SO MONITOR WILl 
; RESERVE ROOM IN FILE. 



t 
I 
I 
I 

i 
4 

I 

< 
4 

< 
I 
< 
4 
4 
I 
I 
I 
t 
t 
i 





SORT! 


SORT - 
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Symbol 


tab i t: 
































ABorri = 


^KKiSrK^- 







OR RE AD 


011406R 


002 


MAXREC= 


000620 




RICA 


012070R 


002 


SLFALS 


014264R 


002 




ANDFLG= 


«'frli'*«-& 


G 




HB":?ARS= 


000006 




MXFILS= 


•K-#+r*-«-»i- fe 




RJCAR 


012220R 


002 


SLINTP 


014046R 


002 




BELL = 


000007 






HB-*DFS= 


000002 




MXFIL2^= 


*-«««1{-+i- Q 




RICB 


012500R 


002 


SLJNXD 


014106R 


002 


BIGEST'- 


177/77 






HB*D1P- 


000030 




MXRECl--= 


■l;--K-K-S--K-i>- G 




RICX 


012630R 


002 


SLNOT 


014074R 


002 




BLKFC - 


«H-fi-»t*:HS- 







HB*DUP= 


000001 




MXREC2= 


•K-ft- ■(«■*■»••>;■ G 




RIEND 


012452R 


002 


SLNXOP 


014324R 


002 




BT*HI •-= 


<i'**^j««^ 


G 




HBfRIU= 


000032 




M*P0S1=: 


«**■«••(?* G 




RIEOF 


012474R 


002 


SLOR 


014132R 


002 


BT*LO ~ 


#fi-li-*KK- 


G 




HB$RSZ= 


000004 




M«P0S2:= 


•K-#*«--R-K- G 




RIFIN 


012454R 


002 


SLREJT 


014344R 


002 




BT*REV= 


«•#&+!-««• 


G 




HD*DEV= 


000000 




M*SIZE= 


*«**#•»{• G 




RIFL 


012016R 


002 


SLRTN 


014552R 


002 




BUFSIZ- 


00 J 000 






HD**SZ= 


000004 




M«*SZ ••= 


•»#«■■»** G 




RIRS 


012330R 


002 


SLTRUE 


014304R 


002 


CHNB I TE- 


000400 






IBFEND 


007660R 


002 


NEXTIN 


013404R 


002 


RHAX 


0076 52R 


002 


SORTPl 


00771 ORG 


002 




CHNO == 


000000 






IBUFl 


007642R 


002 


NOERR = 


000001 




RMON =- 


000054 




S0*AND= 


^J^^K•ls•*■e■ G 






CISRTl--= 


^i■K■K•^s■^c-^i- 


G 




JBUF2 


007644R 


002 


NU(iBUF= 


«•***•*# G 




RN 


006200R 


002 


so*crip- 


^^ ««■«•«•* G 




COMPAR--= 


■K'^K-S-K-e 


G 




IFM1 


010176R 


002 


NUMCOL= 


ii-*^-*;-*-^ G 




RQ 


007646R 


002 


S0*N0T= 


«■««•«-** G 






CR 


0000 J 5 






IFPNT = 


««•«•«•«■«■ G 




NUMKY2= 


^i•#■^s•^^■R•^J• G 




RSBGCW 


012512R 


002 


SO*OR = 


#*>-ft«-K-«- G 






C3PC0F- 


000376 






INCNUM 


0J4552R 


002 


NUHLEN= 


*«■»•«•«•* G 




RSBMOV 


012550R 


002 


SRTCNT= 


«-<f«-«-«-* G 




CTRLZ = 


000032 






INFLEN= 


«-B-*iJ«-* G 




NUMREC 


007640R 


002 


RSTSJB=^^^ 


000404 




SR2 


010532R 


002 




CUROFL= 


•K-«K-*»-S- 


G 




INRDSZ 


007664R 


002 


NXTBLK= 


**«■«•«•* G 




RT*CBL« 


««■*«■*«• G 




SR3 


010726R 


002 




CURSAV= 


Slfr-K-Jf'lfft 


G 




INRLEN=^ 


#*■*?<{■*«■ G 




OBFEND=^= 


*#«■«•■»«• G 




RT$CR - 


««■«■*«■« G 




SR4 


OllllOR 


002 


DBLKFC= 


000005 






INSNUM 


014614R 


002 


OBUFSZ= 


K^*«*#* G 




RT*DBL= 


■K"K-*«-+f*^ G 




SR5 


011206R 


002 




DOMAP 


Ol'I^S^R 


002 


IRPOS 


0076&2R 


002 


OBUFl = 


*«'JS-«"H-*^ G 




RT«FTN== 


**«•#*& G 




SR6 


011216R 


002 




ENDINI 


0107i?0R 


002 


ISMARS= 


*-(5- «•«■«•<{• G 




0BUF2 = 


**■«••»*■«■ Q 




RT*F11= 


**•«■*■»«• G 




SR7 


011316R 


002 


EOF 


0111 74R 


002 


I TYPE = 


«■«■«•«■«•«■ G 




OFLINK 


007666R 


002 


RT*OR = 


*«■**«•# G 




STRIP 


014716R 


002 




EOFBUF== 


ir «S- «;■■«• K- 


G 




JSW 


000044 




ORFLG = 


■K-#-fi"»i-#* G 




RT*OS = 


IfrWK-*-^?-*- G 




S*BR == 


#*•*■«■** G 






EOFCHR== 


«-«-ti-Hf-«-K- 


G 




KSTRT - 


*«•«•■«•«-« G 




ORPOS = 


*-#-f^*** G 




RT*OX = 


-tS-fi+f-H-WK- G 




S*FLG = 


»»«•««•«• G 




FOFCOL== 


1«- «•«**«■ 


G 




KTYPE = 


«•«•«•^f•is•^i■ G 




0UTWR1= 


^s•*^JK•«•«• G 




RT*RA = 


#«•«-»«•■«■ G 




S*LINK= 


*»«•««•» G 






EOFFLG 


007700R 


002 


KYASC 1 


014412R 


002 


OVLBIT= 


001000 




RTfRB --^ 


*«■**«•*■ G 




S*0PR == 


#»«•*?•«•«■ G 






EOFSAV 


014760R 


002 


KYBIN = 


■K•fi■^«•^i•«•«■ G 




owe NT --^ 


^5•■ff■■»5•■fi•■«■* g 




RT*TXT= 


•ft «•**«■<!■ G 




S«P0S1= 


#fi-«-ifr** G 




ERR 


OOOOOv's 






KYCOMP= 


*«■«■«•«•«• G 




PFSPC = 


000002 




RT$VLN" 


«-»«-K-l!-«- G 




S*P0S2= 


#^f«■^f■^i•* G 






ERRLOC= 


0000 K' 






KYDA7E= 


««•«•*•*«• G 




P1BASE= 


OOOOOORG 


002 


RTll = 


000000 




S*SIZ1= 


«■«•«■««•* G 






FDl 


«-K**-C-«- 


G 




KYDIS = 


*■«•«■«■«■* G 




PI SI Z = 


01b054 G 




RUNE NO 


0i0552R 


002 


S«TYP = 


»t-l5^«-*» G 




FE 


0031 OOR 


002 


KYLSS --= 


#«■**•«•«• G 




P1TERM= 


<>•■#(«■<!••«■•«■ G 




RWDLEN-- 


«•«■«•■«•«•» G 




SI STOP 


01 5026R 


002 




FI 


004540R 


002 


KYTSS = 


#«-«^t«-«- G 




PITOP = 


01 50 54 RG 


002 


SELADR= 


**■*#«•«• G 




TMPCNT== 


»<!•<-«•** G 






FILFL = 


ii-i(-f.V-K-1(- 


G 




KYUCA = 


■«■«■**■■»{■# G 




P2T0P = 


■K-***** G 




SELECT 


014020R 


002 


T0PMEM= 


■«-K«^«-** G 




FILNB = 


*-KlJJf«-iS- 


G 




LF 


000012 




G 


0076 54R 


002 


SELREC 


007674R 


002 


UEOF = 


*««•»»■«■ G 






FILRN = 


iJ«S-*'1i-fi- 


G 




LOG 


OOOOOOR 


002 


QLEN = 


000003 




SELVEC 


014370R 


002 


USERRB= 


000053 






FILST = 


«"K-l;-}ffi-*S- 


G 




LOSER 


001440R 


002 


RC 


0076 50R 


002 


SETNRT= 


«•**#** G 




USRLOC=^ 


000046 




FLBLK = 


*K-*«-fiK- 


G 




LDWHEH= 


*«•«•*£•«•«• G 




RCNTl = 


«•#•)?«•«•«• G 




SEVERR= 


000010 




VERSNO= 


000276 






FLDMAP= 


«««-■«■«■ K- 


G 




LSTACK 


007676R 


002 


RCNT2 = 


***i^#fi- G 




SF«LIT= 


*•«•#«•«■* G 




WRDS =- 


000004 






FLUSH = 


^Ji-K-K-JrlJ 


G 




LSTKEY 


0076 56R 


002 


RCXE 


012666R 


002 


SKPCNT= 


»*«■*#«• G 




XEMT =-- 


#««•!«•«•«■ G 




FT*D - 


if *«*•«■ *•• 


G 




LSTKTP 


0O77O7R 


002 


RDFILE 


012772R 


002 


SKPVAL= 


*i{-»s- *«■■«■ G 




XXX14. = 


013132R 


002 




FT$T = 


**^*»:-«- 


G 




ilAPBUF 


007670R 


002 


READ IN 


011666R 


002 


SKPXRC 


012740R 


002 


XXX24. = 


010114R 


002 




GETREC 


0il356R 


002 


MAPEND=' 


■K-fi-^-iJK-*- G 




RECLEN= 


##*«•## G 




SLACPT 


014350R 


002 


XXX33. = 


012562R 


002 


GRCKEF 


011500F 




002 


MAPFIN 


014540R 


002 


RECPTR 


007672R 


002 


SLAND 


014112R 


002 


... VI = 


000003 






GREOF 


011642R 


002 


MAPMOV 


014474R 


002 


RIBUF 


013010R 


002 


BLCMP 


0141 50R 


002 


.. . V2 ^ 


000061 




. ABS. 


OOCOOO 




000 


ifiUi, I,GBL, ABS, OVR) 


























OOOC'OO 




001 


<RW, I>LCL, REL, CDN) 






















SORTl 


01 5052 




002 


<RW, I,GBL, REL,OVR) 
























Err or & < 


1 c? t f : i. t e < 


* 































*** Assemblpr r 


tatisticB 


























Work f 


i 1 f T- e £ 


ds. 































Work f 


i 1 f U'Tl tt?E. 































Size? of 


u) o f ' k f i 


Je 


15783 Words 


( 62 Pages) 























i 
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€ 



... VI 
. . . V2 

ABORT 

ANDFLG 

BELL 

BIGEST 

BLKFC 

BTfHI 

BTfLO 

BT*REV 

BUFSIZ 

CHNBIT 

CHNO 

CISRTl 

COMPAR 

CR 

CSPCOF 

CTRLZ 

CUROFL 

CURS A V 

DBLKFC 

DOMAP 

END INI 

EOF 

EOFBUF 

EOFCHR 

EOFCOt.. 

EOFFLG 

EOFSAV 

ERR 

ERRLOC 

FDl 

FE 

FI 

FILFL 

FILNB 

FILRN 

FILST 

FLBLK 

FLDMAP 

FLUSH 

FTSD 

FT*T 

SETREC 

GRCKEF 

GREOF 

GRREAD 

HB*ARS 

HB^DFS 

HB'SDIP 

HB*DUP 

HB*RIU 

HB*RSZ 



4 
4- 
17 



09 

09 

-23*» 

-45 

'"'4 

"".■'•it 

.- K-' *^ 

i/C:. 

-34# 

-e7# 

■46 

■-38# 
654 
41S 
48 

-!=•& 

19 

. oo 

■-57 
""5 

-51« 

54 

90# 
-r-9« 
-49# 
-11 

7# 

n# 

34 

:i5 

-',i4 
34 

47 

49 

4'-> 



5 E7 

6-30 

6 2? 

1 -74# 
1 -7£'# 
i -75« 
J--71H 
76# 
7.3« 
Pl« 



1 
17 



I 



4 09 

4-09 



17 

4 

10 



P3# 

•46 

■85 



16-16 
10-65 
IS -62 
1 8-73 



4-09 

4-D 

5-92 

3 -n# 



3 

4 

17 



20 

5 



23 



4 



•13# 
•72# 
■12 



-9# 
-42# 
-104# 
-12 
-60 
-57 
-83» 
23--3# 
4 -G9« 



4 
4 
4 
4 
4 
4 
4 
4 
5 
4 



-89 
•89 
-57* 
-58* 
75* 
-68* 
-67* 
-66* 
-17* 
-11 
-24 



6-!2# 
6-57# 
6-35 
6 -27# 



1 6 -6 

4 -B9# 
17-29 

8-28 



18-76 

4-89 
5-120 



6-41 

5-13 

17-15* 



6-12 
4 -89* 

16-6 

16-6 
5-109 
5-132 
5-40* 

5-14* 
4 -74* 
5-67* 
6-21 
5-68 



6-112 

6-42 
6-55 



1 6-6 

4 -S9# 
17-29 
10-18 



16-6 



5-33* 
17 -40* 



6-62* 

4-89* 

16-24 
16-24 



5-37 



-S3 



6-65 
6-74 



17 
12 



•24 
■6 

■29# 
•30 



16-24 
16~6# 
1 7-^-29# 
16-10 



17-10 
16-24 



17-10 
16-24 



17- 
16 



•23 
24# 



1 7 -23 
16-24# 



1 7-29 
17-10 



17-29 
17~10# 



17-23 
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